Ответы
Ответ дал:
0
Var A,B:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
if A>B then WriteLn(B)
else WriteLn(A)
End.
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
if A>B then WriteLn(B)
else WriteLn(A)
End.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад