Задача 6 Урок 9
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:С использованием логической операции and.
С вложенными блоками (без and, все операторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
var a, b, c, d: integer; begin writeln('Введите три целых числа: '); readln(a, b, c); if (a > b) and (a > c) then writeln('Число ', a, ' максимальное') else if (b > c) then writeln('Число ', b, ' максимальное') else writeln('Число ', c, ' максимальное'); writeln('=========================='); if (a > b) then if (a > c) then writeln('Число ', a, ' максимальное.') else if (b > c) then writeln('Число ', b, ' максимальное.') else writeln('Число ', c, ' максимальное.') else if (b > c) then writeln('Число ', b, ' маскимальное.') else writeln('Число ', c, ' максимальное.'); writeln('=========================='); if (a > b) then d := a else d := b; if (d > c) then writeln('Максимальное число: ', d) else writeln('Максимальное число: ', c); readln(); end.
Консоль:
Введите три целых числа: 4 6 7 Число 7 максимальное ========================== Число 7 максимальное. ========================== Максимальное число: 7 Введите три целых числа: 10 10 8 Число 10 максимальное ========================== Число 10 маскимальное. ========================== Максимальное число: 10
- Log in to post comments
- 709 reads