Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.