Составить программу на языке pascal abc. По алгоритму (Алгоритм приложен)
var a,x,y:real;beginend;beginwrite('a, x, y: ');readln(a,x,y);if x=0 then y:=1 else if x>0 then st(a,x,y) else st(1/a,-x,y);writeln('y = ',y);end.
дальше, не выходит
без beginend;*, но все равно не выходит
Var a,x,y:real; procedure st(a,x:real; var y:real); begin end; begin write('a, x, y: '); readln(a,x,y); if x=0 then y:=1 else if x>0 then st(a,x,y) else st(1/a,-x,y); writeln('y = ',y); end. Пример: a, x, y: 1 2 3 y = 3
Благодарю