Предмет: Информатика,
автор: ysmarun
от 1 до n вывести все числа, которые кратны 3
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Литература,
автор: Iiiiiia
Предмет: Право,
автор: dxaxon2256
Предмет: География,
автор: svintsitskayamilana
Предмет: Химия,
автор: supercoolniki