Составить программу для определения значения функции у(x предусмотреть вывод сообщения о том, по какой ветви происходило вычисление значения аргумента функции х. указание: z– неявный параметр функции y(x) считается входным данным. c++ 2017

Program programma1; uses crt; var a: real; begin clrscr;             write('градусная мера угла a = ');             readln(a); if a> =0 then     begin     if a< > 180 then writeln ('угол не является развернутым')     else  writeln ('угол является развернутым');     end     else     writeln('угол не может быть отрицательным'); end. program programma2; uses crt; var x: real; begin clrscr;             write('x = ');             readln(x);     if x> 5 then x: =x*x;     if x< 5 then x: =x*x*x;     writeln('ответ: ',x); end.

Для сред программирования dos (например, turbo pascal) удалите фигурные скобки, для сред windows (например, pascalabc.net) строки в фигурных скобках удалите полностью. {uses crt; } const   n=80;   digits=['0','1','2','3','4','5','6','7','8','9']; var   s: string[80];   i: integer; begin   {clrscr; }   writeln('введите текст (учитываются только 80 первых символов)');   readln(s);   for i: =1 to n do       if s[i] in digits then write(s[i]);   writeln;   for i: =1 to n do       if not(s[i] in digits) then write(s[i]);   writeln;   {readkey} end. тестовое решение: введите текст (учитываются только 80 первых символов) обь с притоком иртыш 5410км, амур с аргунью 4440км, лена 4400км, енисей 4102км 5410444044004102 обь с притоком иртыш км, амур с аргунью км, лена км, енисей км