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

Question

70

в избранное ссылка

Знаете ответ?

white-space · Accepted Answer

65

white-space

08 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить