Задача 7 Урок 9
Primary tabs
Пользователь вводит четыре числа, найдите из них максимальное.
решение задачи:
program Lesson97; var A,B,C,D, maxchislo,max2,max3,max4:integer; begin writeln('vvedite chislo A'); readln(A); writeln('vvedite chislo B'); readln(B); writeln('vvedite chislo C'); readln(C); writeln('vvedite chislo D'); readln(D); 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; maxchislo := max4; writeln('max chislo: ', max4); readln(); end.
- Log in to post comments
- 740 reads