Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

сделайте пожалуйста под (и)

10-11 класс

430565 06 янв. 2015 г., 16:52:58 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Tamtadavladze8
06 янв. 2015 г., 19:28:31 (9 лет назад)

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 и т.д., т.е. на каждую следующую в двое больше предыдущей. Каким количеством зерна можно покрыть шахматную доску?

1) определить количество информации фразы: "мама мыла раму!". Если известно, что мощность русского алфавита с дополнительным символами = 54 2)

2гб перевести в биты( написать цепочку вычислений)

3) 125124 Кбита перевести в Мб (написать цепочку вычислений)

Приветик, написала программу, помогите плиз сделать форматированный вывод, так чтобы все значения X были напсаныв первой строчке,значения sin во

второй, а 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.



Вы находитесь на странице вопроса "сделайте пожалуйста под (и)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.