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

Question

Информатика

Федула

21 октября, 01:21

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

+1

Ответы (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.