Задача 7 Урок 9
Primary tabs
Пользователь вводит четыре числа, найдите из них максимальное.
program project1; var a,b,c,d,max,max_iz_2,max_iz_3: integer; begin writeln('vvedite 4 celih chisla: '); readln(a, b, c, d); if (a > b)then //сверка 1 и 2 max_iz_2:= a else max_iz_2:= b; if (max_iz_2 > c)then //сверка с 3 max_iz_3:= max_iz_2 else max_iz_3:= c; if (max_iz_3 > d)then //сверка с 4 max:= max_iz_3 else max:= d; writeln('maximalnoe: ',max); readln(); end.
- Log in to post comments
- 605 reads