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.
Program ufhg; uses crt; var a,b,c,d, m: integer; begin readln(a,b,c,d); m:=a; if(b>m) then m:=b; if(c>m) then m:=c; if(d>m) then m:=d; writeln(m); end.