Question

Pascal ABC
Составьте программу которая находит количество двухзначных чисел кратных 3

Answer 1

var i,otvet:integer;
begin
 for i:=0 to 99 do
    begin
      if (i mod 3)=0 then
          otvet:=otvet+1;
     end;
writeln(otvet);
end.