Пожаловаться
- 04.01.2018 07:01
- Информатика
- remove_red_eye 19786
- thumb_up 30
Ответы и объяснения 1
Var F: integer;
var x,y:real;
begin
readln(x,y);
if (x*x+y*y>1) then
begin
if ((x<=2) and (y=-3) and (y>=-1)) then
F:=1
else
F:=0;
end
else
begin
if (x*x+y*y<=1) then
F:=1
else
F:=0;
end;
writeln(F);
end.
var x,y:real;
begin
readln(x,y);
if (x*x+y*y>1) then
begin
if ((x<=2) and (y=-3) and (y>=-1)) then
F:=1
else
F:=0;
end
else
begin
if (x*x+y*y<=1) then
F:=1
else
F:=0;
end;
writeln(F);
end.
Пожаловаться
- 05.01.2018 04:46
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы