Решение задачи 6 из главы 9
Primary tabs
6. Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
o С использованием логической операции and.
program Project61; var A, B, C : integer; begin writeln('Vvedite tri zelyh chisla:'); read(A, B, C); if((A > B) AND (A > C)) then writeln('Maksimalnoe chislo: ', A) else if ((B > A) AND (B > C)) then writeln('Maksimalnoe chislo: ', B) else writeln('Maksimalnoe chislo: ', C); readln();readln(); end.
o С вложенными блоками (без and).
program Project62; var A, B, C : integer; begin writeln('Vvedite tri zelyh chisla:'); read(A, B, C); if(A > B) then if(A > C) then writeln('Maksimalnoe chislo: ', A) else writeln('Maksimalnoe chislo: ', C) else if (B > C) then writeln('Maksimalnoe chislo: ', B) else writeln('Maksimalnoe chislo: ', C); readln();readln(); end.
o Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.
program Project63; var A, B, C, maxA, maxB, maxTotal : integer; begin writeln('Vvedite tri zelyh chisla:'); read(A, B, C); if (A > B) then maxA := A else maxA := B; if (maxA > C) then maxB := maxA else maxB := C; maxTotal := maxB; writeln('Maksimalnoe chislo: ', maxTotal); readln();readln(); end.
- Log in to post comments
- 1634 reads
vedro-compota
Sat, 09/12/2020 - 20:39
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)