Program u4_1; Var x , y : integer ; Описываем используемые переменные Begin writeln(‘Введите 2 числа ‘); На экран выводим поясняющую надпись «Введите 2 числа» readln ( x , y ); вводим два целых числа через пробел if x больше y ...
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 , 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.
Не нашли ответ?
Похожие вопросы