Найти все двузначные числа, кратные 3. Паскаль. Через repeat, until
Найти все двузначные числа, кратные 3.
Паскаль. Через repeat, until
Ответ(ы) на вопрос:
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.
Не нашли ответ?
Похожие вопросы