1. Вывести все четные числа начиная с числа N до числа M. Числа N и M задает пользователь. Напишите программу Паскале, пожалуйста.

Ответ

Автор - MrMiner1

Program n_1;

var n, m, i:integer;

begin

read (n, m);

for i:=n to m do if i mod 2 = 0 then write(i, ' ');

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.