Ответы
Ответ дал:
0
var x,y:integer;
begin
readln(x,y);
if not((x*x+y*y)<25) and (x*x+y*y >=100) then
writeln('Принадлежит')
else writeln('Не принадлежит');
end.
begin
readln(x,y);
if not((x*x+y*y)<25) and (x*x+y*y >=100) then
writeln('Принадлежит')
else writeln('Не принадлежит');
end.
Ответ дал:
0
var
x,y:longint;
begin
read(x,y);
if ((x*x)+(y*y))<25 then
write ('Не принадлежит') else
begin
if ((x*x)+(y*y))>100 then
write('принадлежит') else write ('Не принадлежит');
end;
end.
x,y:longint;
begin
read(x,y);
if ((x*x)+(y*y))<25 then
write ('Не принадлежит') else
begin
if ((x*x)+(y*y))>100 then
write('принадлежит') else write ('Не принадлежит');
end;
end.
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад