Ответы
Ответ дал:
0
var a,b,m :real;beginreadln(a);readln(b);m:=(a+b)/2;writeln(m);end.
Ответ дал:
0
var
a,b,m :real;
begin
readln(a);
readln(b);
m:=(a+b)/2;
writeln(m);
end.
a,b,m :real;
begin
readln(a);
readln(b);
m:=(a+b)/2;
writeln(m);
end.
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад
10 лет назад