Thorana
7 год назад
СРОЧНО!!!!!!!!!!!!ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!ПОМОГИТЕ!!!!!!!
правильно ли написана программа для графика?
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.
ОТВЕТЫ
Капитонович
Jul 17, 2019
Var x,y:real;
begin
writeln (введите координаты);
readln (x,y);
if x*x+y*ylt;=1 then
if xgt;=0 then writeln (т попала) else
if ygt;=-x then writeln (т попала)
else writeln (т не попала)
end.
begin
writeln (введите координаты);
readln (x,y);
if x*x+y*ylt;=1 then
if xgt;=0 then writeln (т попала) else
if ygt;=-x then writeln (т попала)
else writeln (т не попала)
end.
206
Смежные вопросы:
