Решение задачи 7 из главы 9
Primary tabs
7. Пользователь вводит четыре числа, найдите из них максимальное.
program Project7; var A, B, C, D, maxA, maxB, maxC, maxTotal : integer; begin writeln('Vvedite chetyre zelyh chisla:'); read(A, B, C, D); if (A > B) then maxA := A else maxA := B; if (maxA > C) then maxB := maxA else maxB := C; if (maxB > D) then maxC := maxB else maxC := D; maxTotal := maxC; writeln('Maksimalnoe chislo: ', maxTotal); readln();readln(); end.
- Log in to post comments
- 1668 reads
vedro-compota
Sat, 09/12/2020 - 20:37
Permalink
добавьте в комментах решение
добавьте в комментах решение через вложенные операторы if
_____________
матфак вгу и остальная классика =)
testok
Mon, 09/14/2020 - 01:43
Permalink
решение через вложенные операторы if