Program Lab1_variant5;
Var x,y: real;
Begin
writeln;
wtiteln(' Автор - Крупина А. И. , студентка гр. ББИ-11');
writeln(' Вариант №5);
writeln(' Программа вводит значение аргумента X и вычисляет значение функции Y);
writeln(' |1+(|cos(x)|)^0.5 x>1);
writeln('Y= |x+1 -0.5
ну во первых writeln нет ' закрывающих текст
прям с 6-й строчки и пошла вниз - забываешь закрывать фразу в скобках знаком '
Y:=1+(|cos(x)|)^0.5 это что за ерунда? Апострофы вырезает ещё в процедурах вывода, наверное. Стучи в агент.
writeln(' Вариант №5); - закрывающую ковычку забыла здесь и далее
да расставь же ты кавычки закрывающие во всех writeln
writeln(' |1+(|cos(x)|)^0.5 x>1);
Вот начиная с этой строчки - где завершаюшая кавычка?
УПД: Даже еще выше.
Y:=1+(|cos(x)|)^0.5 - это что за чушь?
он еще выдает строчку на какой эта ошибка замечена
⇢