Вывести на экран все четные числп от n до m, в поскале

Question

Информатика

Артамоша

27 декабря, 01:53

Вывести на экран все четные числп от n до m, в поскале

+3

Ответы (2)

Знаете ответ на вопрос?

Альфия · Answer 1

Var n, m, i: integer;

begin

Readln (n) ;

Readln (m) ;

for i:=n to m do

if i mod 2 = 0 then

begin

write (i,' ') ;

readln;

end;

end.

Антонюшка · Answer 2

Var

n, m:integer;

i:integer;

begin

write ('От: ') ;

readln (n) ;

write ('До: ') ;

readln (m) ;

write ('Четные числа от ', n, ' до ', m, ': ') ;

for i:=n to m do

if (i mod 2) = 0 then write (i, ', ') ;

end.