Задача 7 Урок 9
Primary tabs
Пользователь вводит четыре числа, найдите из них максимальное.
var a, b, c, d, max:integer; begin writeln('Input numbers: '); readln(a, b, c, d); if (((a > b) AND (a > c) AND (a > d) )) then max := a else if ((b > c) AND (b > d)) then max := b else if ((c > d)) then max := c else max := d; writeln(max); end.
- Log in to post comments
- 668 reads