Мина
6 год назад
От 1 до n вывести все числа, которые кратны 3
ОТВЕТЫ
Akundin
Aug 3, 2019
Var n,i:integer;
begin
read(n);
i:=1;
repeat
begin
if i mod 3=0 then
writeln(i);
end;
i:=i+1;
until nlt;i
end.
begin
read(n);
i:=1;
repeat
begin
if i mod 3=0 then
writeln(i);
end;
i:=i+1;
until nlt;i
end.
219
Смежные вопросы:
