Ответ:
begin
writeln('Введите число: '); var n:=ReadInteger;
var s:=IntToStr(n); var k:=0; var sum:=0;
for var i:=1 to length(s) do
if StrToInt(s[i]) mod 2=0 then begin
sum:=sum+StrToInt(s[i]); k:=k+1;
end;
if k=0 then writeln('Чётных чисел нет') else
writeln('Среднее арифметическое чётных чисел = ',sum/k);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
begin
writeln('Введите число: '); var n:=ReadInteger;
var s:=IntToStr(n); var k:=0; var sum:=0;
for var i:=1 to length(s) do
if StrToInt(s[i]) mod 2=0 then begin
sum:=sum+StrToInt(s[i]); k:=k+1;
end;
if k=0 then writeln('Чётных чисел нет') else
writeln('Среднее арифметическое чётных чисел = ',sum/k);
end.