Question

определить количество трехзначных чисел ,кратных 3.(ПАСКАЛЬ)

Answer 1

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.