Программу на pascal.

Напишите условие выбора чисел больших 100 и кратных 3

Question

Информатика

Паля

8 ноября, 23:05

Программу на pascal.

Напишите условие выбора чисел больших 100 и кратных 3

+3

Ответы (1)

Знаете ответ на вопрос?

Каллист · Answer 1

Var a, n:integer;

beginwriteln ('введите число больше 100 до которого проверять') ;

readln (n) ;

for a:=n downto 100 do begin

if (a mod 3 = 0) then writeln (a) ;

end;

end.

Программу на pascal.Напишите условие выбора чисел больших 100 и кратных 3

Программу на pascal.

Напишите условие выбора чисел больших 100 и кратных 3