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