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

0 голосов
26 просмотров

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

image
Информатика (22 баллов) | 26 просмотров
Дан 1 ответ
0 голосов

Ответ:

  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.

Объяснение:

(53 баллов)
Похожие задачи