Найти количество трёхзначных чисел делящихся на 7 и не делящихся на 3

@Tsykunov Dmitry · Регистрация: 07.05.2014

Найти количество трёхзначных чисел делящихся на 7 и не делящихся на 3. Помогитееее

@Cyborg Drone · 08.05.2014, 01:06

Pascal

var i, k: integer;
begin
  k := 0;
  for i := 100 to 999 do if (i mod 7 = 0) and (i mod 3 <> 0) then inc(k);
  writeln('k = ', k);
  readln
end.

Добавлено через 1 минуту

Не по теме:

Самому такое пора писать.

@Tsykunov Dmitry 0 / 0 / 0 Регистрация: 07.05.2014 Сообщений: 6
		1
	Найти количество трёхзначных чисел делящихся на 7 и не делящихся на 3 07.05.2014, 21:09. Показов 2453. Ответов 1 Метки нет (Все метки) Найти количество трёхзначных чисел делящихся на 7 и не делящихся на 3. Помогитееее 0

	08.05.2014, 01:06

Решение