даны натуральные числа от 20 до 50. напечатать те из них, которые делятся на 3, ...

July 2022 1 8 Report

даны натуральные числа от 20 до 50. напечатать те из них, которые делятся на 3, но не делятся на 5.
Программа на Pascal

Mechael

uses crt;
var i:integer;
begin
For i:=20 to 50 do
If (i mod 3=0) and (i mod 5 <> 0) then writeln(i);
end.

14 votes Thanks 37

AppleThe спасибо. но зачем uses?

Mechael В силу привычки добавил. Дабы не нажимать 2 раза F9 в abc.