Задача 7 Урок 9
Primary tabs
Пользователь вводит четыре числа, найдите из них максимальное.
var a, b, c, d, max, max2, max3, max4: integer; begin writeln('Введите четыре целых числа: '); readln(a, b, c, d); if ((a > b) and (a > c) and (a > d)) then writeln('Число ', a, ' максимальное') else if ((b > c) and (b > d)) then writeln('Число ', b, ' максимальное') else if (c > d) then writeln('Число ', c, ' максимальное') else writeln('Число ', d, ' максимальное'); writeln('============================'); if (a > b) then max2 := a else max2 := b; if (max2 > c) then max3 := max2 else max3 := c; if (max3 > d) then max4 := max3 else max4 := d; max := max4; writeln('Максимальное число: ', max); readln(); end.
Консоль:
Введите четыре целых числа: 2 5 19 0 Число 19 максимальное ============================ Максимальное число: 19 Введите четыре целых числа: 23 23 15 20 Число 23 максимальное ============================ Максимальное число: 23
- Log in to post comments
- 417 reads