Question

Решите задачу, используя язык программирования Паскаль: Даны три действительных положительных числа. Найти среднее арифметическое этих чисел. ПЛИЗ до завтра надо

Answer 1

Program zadacha;
var a,b,c,s:REAL;
begin
writeln('Enter a,b,c:');
readln(a);
readln(b);
readln(c);
s:=0;
s=(a+b+c)/3;
writeln('Среднее арифметическое', s);
end.