Вывести на экран все трёхзначные числа, сумма цифр которых кратна 4

@Lanatel · Регистрация: 27.11.2013

Вывести на экран все трёхзначные числа, сумма цифр которых кратна 4. Определить, является ли последовательность знакочередующейся.

@ildwine · 13.12.2013, 12:08

Pascal

var
  i : integer;
begin
  for i := 100 to 999 do
    if ((i mod 10) + ((i div 10) mod 10) + (i div 100)) mod 4 = 0 then
      write(i:4)
end.

@Lanatel 2 / 2 / 0 Регистрация: 27.11.2013 Сообщений: 78
		1
	Вывести на экран все трёхзначные числа, сумма цифр которых кратна 4 12.12.2013, 18:46. Показов 10431. Ответов 1 Метки нет (Все метки) Вывести на экран все трёхзначные числа, сумма цифр которых кратна 4. Определить, является ли последовательность знакочередующейся. 0

	13.12.2013, 12:08

Решение