Question

составить алгоритм в паскаль,срочно,очень прошу​

Answer 1

Ответ:

1. program a;
2. var x:real;
3. begin
4. readln(x);
5. if x>2 then x:=1/(x*x) else x:=1+x/2;
6. writeln(x);
7. end.

Объяснение: