Ариан
6 год назад
От 1 до n вывести все числа, которые кратны 3
ОТВЕТЫ
Аввакум
Aug 3, 2019
Var a:integer;
begin
for a:=n downto 1 do begin
if (a mod 3 = 0)
then writeln(a);
end;
end.
begin
for a:=n downto 1 do begin
if (a mod 3 = 0)
then writeln(a);
end;
end.
152
Смежные вопросы:
