Программа:
Pascal:
№1)
var sum, j, k: integer;
begin
readln(j);
while j <> 0 do begin
inc(k); // k - кол-во введённых чисел
sum := sum + j; // сумма введённых чисел
readln(j);
end;
writeln(sum/k);
end.
№2)
var sum, j, k: integer;
begin
readln(j);
repeat
inc(k); // k - кол-во введённых чисел
sum := sum + j; // сумма введённых чисел
readln(j);
until j = 0;
writeln(sum/k);
end.
№3)
3.1) var sum, j: integer;
begin
readln(j);
repeat
if j mod 2 = 0 then sum += j;
readln(j);
until j = 0;
writeln(sum);
end.
3.2) var sum, j: integer;
begin
readln(j);
while j <> 0 do begin
if j mod 2 = 0 then sum += j;
readln(j);
end;
writeln(sum);
end.
