Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Var x,y,z:integer;
sr:real;
begin
read(x,y,z);
sr:=(x+y+z)/3;
writeln(sr:2:1);
end.
Популярные вопросы