Вопрос по информатике:
Программа не запускается исправьте программу
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.
- 22.04.2016 16:39
- Информатика
- remove_red_eye 17933
- thumb_up 29
Ответы и объяснения 1
- 23.04.2016 07:53
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.