Question

напишите программу на Паскале,в которой выдается количество двузначных чисел,не кратных 5

Answer 1

var
i,a:integer;
begin
a:=0;
for i:=1 to 90  do
if i mod 5<>0 then
 a:=a+1;
writeln('Количество чисел не кратных 5: ',a);
end.