Урок №9 Задание 8.2
Primary tabs
Пользователь вводит три числа, найдите из них максимальное
С вложенными блоками (без and, все операторы if должны быть в полной форме)
program Pr9_82; var a,b,c:integer; begin writeln('Введите три числа: '); readln(a,b,c); if (a>b) then begin if (a>c) then writeln('max=A: ',a) end else if (b>a) then if (b>c) then writeln('max=B ',b) else writeln ('max=C: ',c); readln(); end.
Консоль:
Введите три числа: 5 6 -1 max=B 6
- Log in to post comments
- 290 reads