задача 6 урок 9:
Primary tabs
задача 6 урок 9:
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:С использованием логической операции and.
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.
//способ 1 var A, B, C: real; begin writeln('vvedite chislo A: '); readln(A); writeln('vvedite chislo B: '); readln(B); writeln('vvedite chislo C: '); readln(C); if ((A > B) AND (A > C)) then writeln(A) else if ((B > A) AND (B > C)) then writeln(B) else writeln(C); readln(); end. //способ 2 var A, B, C: real; begin writeln('vvedite chislo A: '); readln(A); writeln('vvedite chislo B: '); readln(B); writeln('vvedite chislo C: '); readln(C); if (A > B) then begin if (A > C) then writeln(A) end else if (B > A) then begin if (B > C) then writeln(B) else writeln(C); end. readln(); end. //способ 3 var A, B, C: real; var max: real; begin writeln('vvedite chislo A: '); readln(A); writeln('vvedite chislo B: '); readln(B); writeln('vvedite chislo C: '); readln(C); if (A > B) then max := A else max := B; if (max > C) then writeln(max) else writeln(C); readln(); end.
Исправлен второй вариант решения
var A, B, C: real; begin writeln('vvedite chislo A: '); readln(A); writeln('vvedite chislo B: '); readln(B); writeln('vvedite chislo C: '); readln(C); if (A > B) then if (A >C) then writeln(A); if (B > A) then if (B > C) then writeln(B); if (C > A) then if (C > B) then writeln(C); readln(); end.
- Log in to post comments
- 800 reads
vedro-compota
Sun, 08/01/2021 - 11:43
Permalink
второе решение не сработает
второе решение не сработает на наборе
_____________
матфак вгу и остальная классика =)