Помогите пожалуйста! Нужно составить блок схему и написать программу в ТурбоПаскаль
2 комментария:
Попадает ли заданная точка в закрашенную область?
Да, верно, не дописала до конца
Попадает ли заданная точка в закрашенную область?
Да, верно, не дописала до конца Ответы
Гость Var X,Y,R:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
R:=X*X+Y*Y;
if R > 1 then
if x > 0 then
if y > 0 then Write(R < 4)
else Write(R < 25)
else if y < 0 then Write(R < 16)
else Write(R < 9)
else Write(false)
End.
Нет комментариев
Список предметов
