andrey4work918
?>

Написать программу нахождения суммы чисел от 1 до n.для pascal abc

Информатика

Ответы

петрАфанасьев
Программа во вложениях
qelmar461

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested in

irinalav2705745

ответ:

const

  a = 10;

  b = 6;

  r = 8;

var

  x, y : real;

begin

  readln(x, y);

  if // верхняя заштрихованная область

      > =0) and (x==0) and (y< =b)) and (sqr(x)+sqr(y)> =sqr(

      or

      // нижняя заштрихованная область

      ((x< =0) and ((y< =0) and (y> =-b)) and (sqr(x)+sqr(y)< =sqr(

  then writeln('да')

  else writeln('нет');

end.

объяснение:

попробуй вот так, извини если не получилось

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу нахождения суммы чисел от 1 до n.для pascal abc
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

zolotayaoxana1982
vovkiv7864
dilovarnazarov1986
Daletskaya982
dimiff5
keykov35
namik120939
sergeev-alp5
Lusiarko65
Wunkamnevniki13438
Yelena-Svetlana
Анатольевич447
avdeevana
Natalya1895
elenakarpova709
▲