Найти ошибку

@Ilya158 · Регистрация: 29.11.2017

Author24 — интернет-сервис помощи студентам

Pascal

Var x,y:real;
Begin 
Readln (x,y);
If y<=x then
if y<=-x then 
if y>=x*x-2 then 
Write('принадлежит ')
else
write('не принадлежит')
end.

Добавлено через 9 минут
Исправьте ошибку

@Виктория1992 · 27.12.2017, 12:43

так
надо помнить следующее общее правило: каждый else относится к ближайшему предшествующему if,
еще не имеющему парного else.

Pascal

Var x,y:real;
Begin 
Readln (x,y);
If y<=x then
if y<=-x then 
if y>=x*x-2 then 
Write('принадлежит ')
else
write('не принадлежит')
else
write('не принадлежит')
end.

@Puporev · 27.12.2017, 13:35

Как-то это неправильно

Pascal

1 2	If y<=x then if y<=-x then

Здесь наверное так.

Pascal

var x,y:real;
begin
readln (x,y);
If (y<=-abs(x))and(y>=x*x-2) then
write('принадлежит ')
else  write('не принадлежит')
end.

	27.12.2017, 13:35

Опции темы