Question

Линейный алгоритм.Найдите среднее арифметическое d=a+b+c/3a b c -целые числа, заданны с клавиатуры

Answer 1

Var a,b,c,s:real;
begin
writeln ('Введите a, b, c: ');
readln (a,b,c);
s:=(a+b+c)/3;
writeln ('Их среднее: ',s);
end.