Ответы на фотографии, удачи :)
алг ЧетНечет
нач
цел А
А:= 0
ввод А
если mod(А,2) = 0
то вывод "Число четное"
иначе вывод "Число нечетное"
все
кон
Program z;
var a,i:integer; max:real;
begin
max:=0;
i:=0;
repeat writeln('Введите число'); read(a);
max:=max+a;
i:=i+1;
until a=0;
writeln('Сумма =',max);
writeln('Средние значение =',max/i);
<span>end.</span>
Program Sum;
var
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел равна',s);
<span>end.
</span>
Программа в приложенном файле