Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.