Урок №9 Задание 8.1
Primary tabs
Пользователь вводит три числа, найдите из них максимальное
program Pr9_81; {Пользователь вводит три числа, найдите из них максимальное С использованием логической операции and.} var a,b,c:integer; begin writeln('Введите три числа: '); readln(a,b,c); if (a>b) and (a>c) then writeln('max=A: ',a) else if (b>a) and (b>c) then writeln('max=B: ',b) else if (c>a) and (c>b) then writeln('max=C: ',c); readln(); end.
Консоль:
Введите три числа: 1 2 3 max=C: 3
- Log in to post comments
- 329 reads