Ответы
Ответ дал:
0
Ответ:
program Calc;
var
a, b, c: Real;
begin
ReadLn (a, b);
if a > 0 then
c := (a + b) / 2
else
c := a / b;
WriteLn (c :5 :5);
ReadLn;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
7 лет назад
7 лет назад