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

Question

Информатика

Кириана

9 декабря, 16:47

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

+5

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