Идёт поиск ответа...

Надо немного подождать, идёт поиск ответа на твой вопрос!
Ответ найден
Если ответ не очень подходит для тебя, то нажми кнопку и попробуй найти другой
Найти другие ответы
    • 24 October 2017
    • Автор: Leraps1

    Program test;
    Var  x, y : integer;
      answer : boolean;Begin  x:=0; //сюда пишешь значения x и y  y:=0;  if ((trunc(sqrt(sqr(x)+sqr(y)))<=5)and(trunc(sqrt(sqr(x)+sqr(y)))>=3)and (x>=0))  then  answer:=true  else answer:=false;  writeln (answer);End.

    Вот наверное так. Надо писать что тут происходит?

Последние опубликованные вопросы