Question

Выведи на экран большее из двух данных чисел. Запиши программу на языке Паскаль, выведи ответ на экран, если 1,59856 и 2,4838.

Answer 1

Var a,b:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if a > b then writeln('Наибольшее число',' ',a)
else writeln('Наибольшее число',' ',b);
end.

Answer 2

Для решения данной задачи на языке Паскаль можно использовать следующий код:

program GreaterNumber;

var
  num1, num2: real;

begin
  num1 := 1.59856;
  num2 := 2.4838;

if num1 > num2 then
    writeln('Большее число: ', num1)
  else if num2 > num1 then
    writeln('Большее число: ', num2)
  else
    writeln('Числа равны');
end.

В данной программе мы объявляем две переменные `num1` и `num2`, которым присваиваем значения 1.59856 и 2.4838 соответственно. Затем мы используем условный оператор `if` для сравнения значений переменных. Если `num1` больше `num2`, то выводим на экран сообщение "Большее число: " и значение `num1`. Если `num2` больше `num1`, то выводим на экран сообщение "Большее число: " и значение `num2`. Если оба числа равны, то выводим на экран сообщение "Числа равны".

Таким образом, при вводе чисел 1.59856 и 2.4838 на экран будет выведено сообщение "Большее число: 2.4838".

Пожалуйста, обратите внимание, что данный код предназначен для языка Паскаль и может быть выполнен в среде разработки, поддерживающей этот язык программирования.