Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.