If12. Даны три числа. Найти наименьшее из них.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
program if12; var A, B, C: Real; begin Write('Введите первое число: '); Readln (A); Write('Введите второе число: '); Readln (B); Write('Введите третье число: '); Readln (C); if A<B then //A<B if A<C then Writeln('Первое число меньше всех.') //A<B A<C else Writeln('треть число меньше всех.3') //A<B A>C else //A>B if B<C then Writeln('Второе число меньше всех.') //A>B B<C else Writeln('Треть число меньше всех.'); //A>B B>C end. |
Ещё решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
program if12; var A, B, C: Real; begin Write('A: '); Readln (A); Write('B: '); Readln (B); Write('C: '); Readln (C); if ((a< =b) and (a<=c)) then writeln(a) else if ((b<=c) and (b<=a)) then writeln(b) else if ((c<=a) and (c<=b)) then writeln(c); end. |
Другие задачи из раздела If можно посмотреть здесь.
Да действительно… выглядит более наглядно. Добавил решение в основную статью, немного подкорректировав оформление к общему виду.
В решении Евгения слишком много «равно», при повторяющихся числах (5,5,9) срабатывает несколько раз. Оставил половину из них — работает правильно, кроме одинаковых чисел (0,0,0), (1,1,1)и тд. Добавил их как
Теперь попробую набрать код
Так,правильнее даже OR!!
Это слишком сложно для меня…
Было:
Стало: