Отыскать максимум из трёх чисел, числа рандомные от 0 до 20,

Отыскать максимум из трёх чисел, числа рандомные от 0 до 20, предугадать случай, что числа одинаковы (нужно паскале написать помогите пожалуйста)

Задать свой вопрос
1 ответ
Function Max(a,b: integer): integer;begin  if a gt; b then    Max := a  else    Max := b;end;


Использование:
WriteLn(Max(a, Max(b, c)));
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт