Дано 4х злачное число, подсчитать среднеарифметическое четных чисел. + выполнить проверку

Question

Дано 4х злачное число, подсчитать среднеарифметическое четных чисел. + выполнить проверку

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

program ops; var a,b,c,d:integer; s: real;begin writeln('введите четырёхзначное число'); readln(a); b:=a mod 10; a:=a div 10; c:=a mod 10; a:=a div 10; d:=a mod 10; a:=a div 10; s:=(b+c+d+a)/4; writeln(s); end.