Регистрация
Lilu700
19.12.2020 16:32
Информатика
Есть ответ 👍

Определить количество трехзначных чисел ,кратных 3.(паскаль)

150
281
Посмотреть ответы 2

Ответы на вопрос:

yan0125
yan0125
4,4(72 оценок)

var

  i, c: integer;

 

begin

  c : = 0;

  for i : = 100 to 999 do

    if i mod 3 = 0 then inc(c);

  writeln(c, ' трехзначных чисел кратных 3.');

end.

disapitr
disapitr
4,4(87 оценок)

Блокнот

Объяснение:

Популярно: Информатика