Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад