Вывести на экран все числа из отрезка [1590;3790], делящиеся нацело на 4 в столбец
Вывести на экран все числа из отрезка [1590;3790], делящиеся нацело на 4 в столбец
Гость
Ответ(ы) на вопрос:
Гостьprogram chik;
var i:integer;
begin
for i:=1590 to 3790 do
begin
if (i mod 4=0)then writeln(i);
end;
end.
Не нашли ответ?
Похожие вопросы