Ответы
Ответ дал:
0
Var
A,B:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn('(A+B)/2 = ',(A+B)/2);
End.
A,B:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn('(A+B)/2 = ',(A+B)/2);
End.
Похожие вопросы
2 года назад
6 лет назад
9 лет назад
9 лет назад