Question

Линейный алгоритм.
Найдите среднее арифметическое d=a+b+c/3
a 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.