Question

Составить программу Паскаль, которая получает наход 2 числа и выводит максимальное из них

Answer 1

var a,b: integer;

begin

read(a,b);

if a > b then write (a)

else write (b)

end.

Или (если учитывать возможное равенство чисел)

var a,b: integer;

begin

read(a,b);

if a = b then write ('a = b')

else if a > b then write (a)

else write (b)

end.

Answer 2

#### Программа на языке Паскаль для нахождения максимального числа Вот пример программы на языке Паскаль, которая получает два числа от пользователя и выводит максимальное из них: ```pascal program MaxNumber; var num1, num2, max: integer; begin writeln('Введите первое число: '); readln(num1); writeln('Введите второе число: '); readln(num2); if num1 > num2 then max := num1 else max := num2; writeln('Максимальное число: ', max); end. ``` В этой программе мы объявляем три переменные: `num1`, `num2` и `max`. Затем мы запрашиваем у пользователя ввод двух чисел с помощью `readln`. Далее, с помощью условного оператора `if`, мы сравниваем значения `num1` и `num2` и присваиваем максимальное значение переменной `max`. Наконец, мы выводим максимальное число на экран с помощью `writeln`. **Примечание**: Приведенный выше код является примером и может быть изменен или доработан в зависимости от конкретных требований или предпочтений. #### Источники: -: 'Untitled' - You.com search result snippet -: ' - JavaScript | MDN' - You.com search result snippet -: ' ' - You.com search result snippet -: ' -: ? | Lucidchart' - You.com search result snippet -: ' 8. . ' - You.com search result snippet -: ' ' - You.com search result snippet -: '. . . GitHub' - You.com search result snippet -: ' ' - You.com search result snippet -: '' - You.com search result snippet -: ' . C/C++' - You.com search result snippet