Question

Написать программу для Pascal ABC на вычисление среднего балла за год. С клавиатуры вводится 4 числа.

Answer 1

var
a,b,c,d:integer;
begin
  writeln('Введите первое число');
  readln(a);
  writeln('Введите второе число');
  readln(b);
  writeln('Введите третье число');
  readln(c);
  writeln('Введите четвертое число');
  readln(d);
  writeln('Среднее четырех чисел = ',(a+b+c+d)/4)
end.

Answer 2

Спасибо) Но можно было и проще)

Answer 3

var
a,b,c,d:integer;
begin
readln(a,b,c,d);
writeln('Среднее четырех чисел = ',(a+b+c+d)/4)
end.