Question

Очень прошу помощи.

 

Напишите программу нахождения среднего арифметического 3-х целых чисел, вводимых с клавиатуры.

Answer 1

var a,b,c:integer;
s:real;
begin
writeln('Vvedite abc');
read(a,b,c);
s:=(a+b+c)/3;
writeln('Srednee arifmeticheskoe 3 chisel = ',s);
end.