Program ABC;var A,B,C:real;beginwrite('Введите три числа ');read (A,B,C);if A>0 then writeln (A,' положительное');if B>0 then writeln (B,' положительное');if C>0 then writeln (C,' положительное');end.
Var x,y,z,Ans:integer; u:real; Begin Write('Введите числа x,y,z: '); Readln(x,y,z); Writeln('Что вычислить из числа ',x,' ?'); Writeln('1 - sin; 2 - cos; 3 - tg;'); Readln(Ans); case Ans of 1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end; 2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end; 3: begin u:=tan(x); Writeln('tg(',x,') = ',u) end; else Writeln('Ошибка!') end; Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z); Writeln('Без модуля - 1; по модулю - 2'); Readln(Ans); case Ans of 1: begin if (u>y) and (u>z) then Writeln('Максимальное число - ',u) else if (y>u) and (y>z) then Writeln('Максимальное число - ',y) else if (z>u) and (z>y) then Writeln('Максимальное число - ',z) else Writeln('Все числа равны.') end; 2: begin if (abs(u)>abs(y)) and (abs(u)>abs(z)) then Writeln('Максимальное число - ',u) else if (abs(y)>abs(u)) and (abs(y)>abs(z)) then Writeln('Максимальное число - ',y) else if (abs(z)>abs(u)) and (abs(z)>abs(y)) then Writeln('Максимальное число - ',z) else Writeln('Все числа равны.') end end End.
(.. или ..) и (..или ..)Скобки означают о приоритете - какое выражение выполнять первым. В данном случае у нас 3 действия: 1,2 по порядку слева направо с операцией ИЛИ, а так же 3 с И.И - это коньюнкция (логическое умножение), оно верно только в том случае, если оба выражения являются истинными.ИЛИ - дизъюнкция (логическое сложение), оно верно, если хотя б одно выражение является истинным.Давайте решим Ваш пример:9999999 - это максимальное семизначное число, давайте подставим его в примере и приведём к нужному виду.Я выбрал "есть хотя бы одна четвёрка" И "нет восьмерок", в результате самое максимальное семизначное число, которое подойдёт к данному условию - 9999994
