S sass Регистрация 27 Июл 2013 Сообщения 73 Репутация 0 Спасибо 0 Монет 0 22 Мар 2023 #1 Даны два числа. Вывести сначала наибольшее из них, а затем наименьшее
M Miks Регистрация 1 Дек 2013 Сообщения 69 Репутация 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 Сообщения 80 Репутация 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.
A alex34df4 Регистрация 15 Сен 2013 Сообщения 88 Репутация 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.
A Alf Регистрация 2 Фев 2013 Сообщения 92 Репутация 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.