Вывести все положительные трехзначные числа, сумма цифр которых кратна 3

@dmitriy369 · Регистрация: 29.10.2012

Author24 — интернет-сервис помощи студентам

@ermolay · 29.10.2012, 01:11

Pascal

var
  i,s: byte;
begin
  for i:=100 to 999 do
  begin
    s:=(i mod 10+i div 10 mod 10+i div 100);
    if s mod 3=0 then 
      writeln(i);
  end;
end.

@dmitriy369 0 / 0 / 1 Регистрация: 29.10.2012 Сообщений: 13
		1
	Вывести все положительные трехзначные числа, сумма цифр которых кратна 3 29.10.2012, 00:58. Показов 4614. Ответов 1 Метки нет (Все метки) Вывести все положительные трехзначные числа, сумма цифр которых кратна 3 0

	29.10.2012, 01:11

Вывести все положительные трехзначные числа, сумма цифр которых кратна 3

Решение