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 для нахождения большего из трех чисел.
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 для нахождения большего из трех чисел.
Answers & Comments
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.