Помогите написать (PascalABC)

Помогите написать (PascalABC)
Гость
Ответ(ы) на вопрос:
Гость
5) Program n5; var a,i,n,sum: integer; begin readln(n); sum:=0; for i:=1 to n do begin readln(a); sum:=sum+a; end; writeln(sum); end. 6) Program n6; var n,i: integer; begin readln(n); for i:=1 to n do if i mod 2=0 then write(i,' '); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы