сделайте пожалуйста под (и)
10-11 класс
|
var
x, y: integer;
begin
readln(x, y);
if ((sqrt(sqr(x) + sqr(y)) <= 1) or ((x in [0..1]) and (y in [0..1]))) then
writeln('yes')
else
writeln('no');
end.
--------------------------
var
x, y: integer;
begin
readln(x, y);
if (sqrt(sqr(x) + sqr(y)) <= 1) then
writeln('yes')
else
if (x in [0..1]) then
if (y in [0..1]) then
writeln('yes')
else
writeln('no')
else
writeln('no');
end.
Другие вопросы из категории
По древней легенде мудрец, который изобрел шахматы, потребовал от персидского шаха такое количество пшеницы, чтобы им можно было покрыть шахматную доску, положив на первую клетку 1 зерно, на вторую - 2, на третью - 4 и т.д., т.е. на каждую следующую в двое больше предыдущей. Каким количеством зерна можно покрыть шахматную доску?
2гб перевести в биты( написать цепочку вычислений)
3) 125124 Кбита перевести в Мб (написать цепочку вычислений)
второй, а tg на третьей строчки
program h;
var f:text;
x,y,z:real;
begin
assign (f,'c:\ty.txt');
reset (f);
rewrite(f);
x:=0;
while x<=3 do
begin
x:=x+0.1;
y:=sin(x);
z:=sin(x)/cos(x);
write(f,' x= ',x:4:2,' ');
write(f,'sin ',y:7:5, ' ');
write(f,'tg ',z:5:3,' ');
end;
close(f);
end.
Опишите этапы решения на компьютере задачи нахождения значения a^b для целых чисел 0<a,b<10.
Читайте также
Даны два действительных положительных числа x и y.
Тригонометрические действия над числами пронумерованы (1 - sin, 2 - cos, 3 - tg,
В приведенной таблице ниже указаны возраст и фамилии сотрудников одного офиса. Расположите фамилии в соответствии с возрастными категориями, указанными в таблице. Запишите необходимые формулы в ячейки: C2, D2, E2.