дуже треба)))

дуже треба)))

  • Var x, y: real;
    begin
    write (Введіть число:);
    readln (x);
    y: = (1/8) * sqr (x) + 8 * x;
    writeln (y =, y);
    end.
  • Program program1;
    var
    y: real;
    x: integer;
    begin
    write (Введіть значення Х :);
    readln (x);
    y: = 1 / (8 * sqr (x)) + 8 * x;
    writeln (y =, y);
    readln;
    end.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

43 − 33 =