Помогите пожалуйста решить

Question

Помогите пожалуйста решить

---

Comments

Только на Паскале нужно? На С++ не пойдет?

---

нет,только паскаль

Answer 1

Я смог решить только 7

program nomer;
var a,n,x:integer;
begin
while n<=0 do <br>  begin
    writeln('Введите число');
    readln(x);
    if (x mod 2)=0 then a:=a+x;
    writeln('хотите закончить ввод? да=1, нет=0');
    readln(n);
  end;
writeln(a);
end.

Comments

Сейчас 6 напишу

---

program nomer;
var a,n,x,summ,col:integer;
begin
while n<=0 do <br> begin
writeln('Введите число');
readln(x);
if ((x*x) mod 2)=0 then
begin
col:=col+1;
summ:=summ+x;
end;
writeln('хотите закончить ввод? да=1, нет=0');
readln(n);
end;
writeln(col);
writeln(summ/col);
end.