Question

ЦИКЛЫ Найти количество двухзначных чисел,делящихся на 7.

Answer 1

//прога на Pascal`e
var
i, count: byte;
begin
for i:=10 to 99 do
if  (i mod 7) = 0 then inc (count);
write (count);
end.