ПОМОГИТЕ! 40Б!
Составить программу которая запрашивает значение переменной x, номер арифметического действия и в зависимости от номера действия определяет y.

x(в квадрате), если n=1
cos(x), если n=2
y=
sin(x), если n=3
IxI, если n=4

Спасибо огромное!)

запрашивает значение переменной x , номер арифметического действия

по программе, нужно ввести 10 1, и получишь квадрат числа 10

аа,дошло,мдаа..

Бывает, вопрос трудно читается, а меня вообще игнорят с градусами и радианами...

:)

varx:real;n:integer;beginWrite('Введите x -> ');Readln(x);Write('Введите номер действия(1..4) - > ');readln(n);case n of  1: Writeln('y = ', x*x);  2: Writeln('y = ', cos(x));  3: Writeln('y = ', sin(x));  4: Writeln('y = ', abs(x));end;end.