Урок №9 Задание 9
Primary tabs
Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.
program Pr9_9; var a,b,c,d:integer; begin writeln('Введите четыре числа: '); readln(a,b,c,d); if (a>b) then begin if (a>c) then begin if (a>d) then writeln('max=A: ',a) else writeln('max=D: ',d); end else if (c>d) then writeln('max=C: ',c) else writeln('max=D: ',d); end else if (b>c) then begin if (b>d) then writeln('max=B: ',b) else writeln('max=D: ',d); end else if (c>d) then writeln('max=C: ',c) else writeln ('max=D: ',d); readln(); end.
Консоль:
Введите четыре числа: -4 0 8 15 max=D: 15
- Log in to post comments
- 249 reads