Программа не запускается исправьте программу program lab1; Var x,a,nx:integer; y:real; begin write ('Введите x: '); read(x); write ('Введите a: '); read(a); write ('Введите nx: '); read(nx); If a меньше 1 then y:=sqr(nx)-7/(sqr...
Программа не запускается исправьте программу
program lab1;
Var
x,a,nx:integer; y:real;
begin
write ('Введите x: ');
read(x);
write ('Введите a: ');
read(a);
write ('Введите nx: ');
read(nx);
If a<1 then
y:=sqr(nx)-7/(sqr(x));
If a=1 then
y:=a*x*sqr(a*x)+sqrt7(x);
If a>1 then
y:=ln(x+7)*(sqrt(x+a));
write('Y = ',y);
End.
Гость
Ответ(ы) на вопрос:
Гостьy:=a*x*sqr(a*x)+sqrt7(x); - что такое sqrt7(x)? Есть функция sqrt(x), sqrt7 нет. Уберите семёрку.
Не нашли ответ?
Похожие вопросы