Программу на pascal. Напишите условие выбора чисел больших 100 и кратных 3
Программу на 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.
Не нашли ответ?
Похожие вопросы