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

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

Question

Информатика

Захарьич

1 мая, 06:31

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

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

+5

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