Урок 9 Задача 7
Primary tabs
Пользователь вводит четыре числа, найдите из них максимальное.
var A, B, C, D, Max: integer; begin readln(A); readln(B); readln(C); readln(D); if (A>B) then Max:=A else Max:=B; if (C>Max) then Max:=C; if (D>Max) then Max:=D; writeln(Max); readln(); end.
- Log in to post comments
- 545 reads