СРОЧНО!!!!!!!!!!!!ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!ПОМОГИТЕ!!!!!!! правильно ли написана программа для графика?var x,y:real;beginwriteln ('введите координаты');readln (x,y);if (x*x+y*y меньше =1) then beginif (x больше =0) then begin...
СРОЧНО!!!!!!!!!!!!ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!ПОМОГИТЕ!!!!!!!
правильно ли написана программа для графика?
var x,y:real;beginwriteln ('введите координаты');readln (x,y);if (x*x+y*y<=1) then beginif (x>=0) then beginif (y>=-x) thenwriteln ('т попала в обл')elsebeginif (y<=-x) then writeln ('т попала в обл')elsewriteln ('ошибка');end;end;end;end.
Гость
Ответ(ы) на вопрос:
Гостьvar x,y:real;
begin
writeln ('введите координаты');
readln (x,y);
if x*x+y*y<=1 then
if x>=0 then writeln ('т попала') else
if y>=-x then writeln ('т попала')
else writeln ('т не попала')
end.
Не нашли ответ?
Похожие вопросы