If6. Даны два числа. Вывести большее из них.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 |
program If4; var R1, R2 : Real; begin Write('Введите перовое число: '); Readln(R1); Write('Введите второе число: '); Readln(R2); if R1>R2 then writeln(R1) else writeln(R2); end. |
Другие задачи из раздела If можно посмотреть здесь.
Почему не учли ситуацию, когда a=b?
Извините, за то что долго не появлялись ваши комментарии, вас за что то невзлюбил спам фильтр..
Здесь всё просто … ситуация мной учтена…
Просто в условии не оговорено, что делать когда a=b, или в моём случае R1=R2.
И я в такой ситуации вывожу значение одного из чисел. Так как я посчитал, что это менее ресурсоёмко, и наглядно.
Если вы считаете, что в этой ситуации надо делать что то другое.. я не против увидеть ваш код. Или услышать предложение.