Урок 9 Задача 8.3
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
var a, b, c, d: integer; // a, b, c вводит пользователь, в d будем записывать максимум из двух значений begin writeln ('Введите три числа: '); //пояснение для пользователя readln (a, b, c); // считывание чисел, введенных пользователем if (a > b) then // сравниваем а и b d := a // записываем в d значение a, если a > b else d := b; // в иных случаях (когда b>=a) записываем в d значение b if (d > c) then // новый оператор, сравниваем d и с write (d) // выводим на экран d, если d>c else write (c); // в иных случаях (когда с >=d) выводим на экран с writeln (' - максимальное число'); //это пояснение выводится на экран вслед за выведенной на экран переменной readln (); end.
Вывод в консоли:
Введите три числа:
54
0
23
54 - максимальное число
- Log in to post comments
- 446 reads