• Найти максимум из трех целых чисел Паскалем.

Ответы 1

  • Var A,B,C:integer;BeginReadLn(A,B,C);if A<B then A:=B;if A<C then A:=C;Write(A)End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years