Question

Найти все двузначные числа, кратные 3.
Паскаль. Через repeat, until

Answer 1

var
  a, i: integer;

begin
a:=0;
i:=10;
repeat
if ((i mod 3) = 0) then
a:=a+1;
i:=i+1;
until i = 100;
writeln(a);
end.