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

Question

Информатика

Сашута

2 июля, 10:22

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

+4

Ответы (1)

Знаете ответ?

Фабиана · Answer 1

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.