Question

найдите среднее значение из трех чисел x ,y ,k. составить программу Pascal и блок схему

Answer 1

program gt;
var x,t,k,s:real;
begin
read(x,y,k);
s:=x+y+k;
s:=s/3;
writeln(s);
end.