Question

написать в паскале используя циклы:
Среди всех натуральных трехзначных чисел найти и вывести на экран только кратные пяти и вычислить их количество.

Answer 1

var x.k:integer;
BEGIN
k:=0;
for x:=100 to 999 do
if x mod 5 = 0 then begin writeln(x);k:=k+1; end;
writeln('k=',k);
end.