Урок 9 Задача 8
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:1. С использованием логической операции and.
2. С вложенными блоками (без and, все операторы if должны быть в полной форме).
3. Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
var a, b, c, x: integer; begin // С использованием логической операции and. writeln('Введите три целых числа:'); readln(a, b, c); if (a > b) and (b > c) or (a > c) and (c > b) then writeln('Максимальное число = ', a) else if (b > a) and (a > c) or (b > c) and (c > a) then writeln('Максимальное число = ', b) else writeln('Максимальное число = ', c); // С вложенными блоками (без and, все операторы if должны быть в полной форме). writeln('Введите три целых числа:'); readln(a, b, c); if (a > b) then begin if (a > c) then writeln('Максимальное число = ', a) else writeln('Максимальное число = ', c); end else if (b > c) then writeln('Максимальное число = ', b) else writeln('Максимальное число = ', c); // Без вложенных блоков (без and) writeln('Введите три целых числа:'); readln(a, b, c); if (a > b) then x := a else x := b; if (x > c) then writeln('Максимальное число = ', x) else writeln('Максимальное число = ', c); readln(); end.
- Log in to post comments
- 1425 reads
vedro-compota
Wed, 05/04/2022 - 20:27
Permalink
if (a > b) and (b > c) or (a
-- проверить для набора
_____________
матфак вгу и остальная классика =)
Dennis80
Thu, 05/05/2022 - 09:59
Permalink
Урок 9 Задача 8. Исправил
vedro-compota
Wed, 05/11/2022 - 19:32
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)