Question

Составьте программу для вычисления среднего арифметического переменных A, B, C целого типа. Для переменных А и В должно выполняться условие: значения переменных больше 0. Среднее число считать переменной SR.​

Answer 1

//Pascal ABC

var

 a, b, c:integer;

 sr:real;

begin

 write('Введите а: ', #10);

 readln(a);

 write('Введите b: ', #10);

 readln(b);

 write('Введите с: ', #10);

 readln(c);

 sr:=(a + b + c) / 3;

 write('Среднее арифметическое = ', sr);

end.