sass S sass Регистрация 27 Июл 2013 Сообщения 77 Репутация 0 Спасибо 0 Монет 0 22 Мар 2023 #1 Даны два числа. Вывести сначала наибольшее из них, а затем наименьшее
Miks M Miks Регистрация 1 Дек 2013 Сообщения 73 Репутация 1 Спасибо 0 Монет 0 22 Мар 2023 #2 program max_min; var a, b: integer; begin readln(a,b); if a > b then writeln('Наибольшее число:', a, ' Наименьшее число:', b) else writeln('Наибольшее число:', b, ' Наименьшее число:', a); end.
program max_min; var a, b: integer; begin readln(a,b); if a > b then writeln('Наибольшее число:', a, ' Наименьшее число:', b) else writeln('Наибольшее число:', b, ' Наименьшее число:', a); end.
пидр П пидр Регистрация 17 Сен 2013 Сообщения 86 Репутация 0 Спасибо 0 Монет 0 22 Мар 2023 #3 var a,b: real; begin read(A,B); if A > B then writeln(A,B) else write(B,A); end.
alex34df4 A alex34df4 Регистрация 15 Сен 2013 Сообщения 96 Репутация 6 Спасибо 0 Монет 0 22 Мар 2023 #4 var a,b:integer; begin readln(a); readln(b); if a>b then writeln(a,b); else writeln(b,a); end.
Alf A Alf Регистрация 2 Фев 2013 Сообщения 100 Репутация 0 Спасибо 0 Монет 0 22 Мар 2023 #5 program test_1; var a,b: real; begin read(a,b); if a > b then writeln(a) else write(b); end.