Помогите составить программу для нахождения среднего арифметического 4 чисел в паскале

Question

Информатика

Фаня

19 сентября, 16:35

Помогите составить программу для нахождения среднего арифметического 4 чисел в паскале

+1

Ответы (1)

Знаете ответ на вопрос?

Евдокия · Answer 1

uses crt;

var

i, y, x, z:integer;

n:single;

begin

clrscr;

writeln ('Введите 4 числа') ;

readln (i, z, x, y) ;

n: = (x+y+z+i) / 4;

writeln ('Среднее = ', n:0:3) ;

readln () ;

end.