Предмет: Информатика, автор: ysmarun

от 1 до n вывести все числа, которые кратны 3

Ответы

Автор ответа: denis6793
0
Var a:integer;
begin
for a:=n downto 1 do begin
if (a mod 3 = 0)
then writeln(a);
end;
end.
Похожие вопросы
Предмет: География, автор: svintsitskayamilana