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

nosia nosia    1   20.07.2019 10:20    2

Ответы
sasha2005k1 sasha2005k1  03.10.2020 08:44

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика