- 23.11.2017 06:36
- Информатика
- remove_red_eye 6970
- thumb_up 20
Ответы и объяснения 2
Var
r :integer;
x, y :real;
begin
R:= 6;
readln(x,y);
if (x > 0) and (y > 0) = false then
if sqr(x) + sqr(y) < sqr(r) then
writeln('true')
else
writeln('false');
if (x > 0) and (y > 0) = true then
writeln('false');
end.
- 24.11.2017 20:08
- thumb_up 1
Var
x,y:integer;
f:boolean;
begin
readln(x,y);
f:=false;
if sqr(x)+sqr(y)<36 then f:=true;
if (x>0) and (y>0) then f:=false;
writeln('Ответ: ',f)
end.
- 25.11.2017 20:04
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.