Question

Составить блок-схему и программу в паскале для решения задачи:Задать три числа и найти их среднее арифметическое

Answer 1

var a,b,c:integer;

begin
readln(a);
readln(b);
readln(c);
writeln('Среднее арифметическое: ', (a+b+c)/3);
end.

Answer 2

var c, a, b: integer;
begin
     readln(a, b, c);
     writeln((a + b + c) / 3);
end.