Program u4_1;

Var x, y : integer;

Описываем используемые переменные

Begin

writeln ('Введите 2 числа ') ;

На экран выводим поясняющую надпись "Введите 2 числа"

readln (x, y) ;

вводим два целых числа через пробел

if x>y then writeln (x)

если х больше y, то выводим х

else writeln (y) ;

иначе выводим y

End.

1. Измените программу u 4_1 для нахождения большего из трех чисел.

Question

Информатика

Сильвестр

4 февраля, 13:46

Program u4_1;

Var x, y : integer;

Описываем используемые переменные

Begin

writeln ('Введите 2 числа ') ;

На экран выводим поясняющую надпись "Введите 2 числа"

readln (x, y) ;

вводим два целых числа через пробел

if x>y then writeln (x)

если х больше y, то выводим х

else writeln (y) ;

иначе выводим y

End.

1. Измените программу u 4_1 для нахождения большего из трех чисел.

+5

Ответы (1)

Знаете ответ?

Илларион · Answer 1

Var x, y, z : integer;

begin

writeln (‘Введите 3 числа ‘) ;

readln (x, y, z) ;

if x>y then begin

if x>z then writeln (x) else writeln (z) end

else begin

if y>z then writeln (y) else writeln (z) end;

readln;

End.