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

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

Question

Информатика

Лавреня

8 июля, 09:17

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

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

+1

Ответы (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