Урок №9 Задание 8.3
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
program Pr9_83; var a,b,c:integer; x:integer; begin writeln('Введите три числа: '); readln(a,b,c); if (a>b) then x:=a else x:=b; if (x>c) then x:=x else x:=c; writeln('max = ',x); readln(); end.
Консоль:
Введите три числа: 1 2 3 max = 3
- Log in to post comments
- 205 reads