Вычислить :(1+Cos0.1)(1+cos0.2)...(1+cos10) - №24128733

Вычислить :(1+Cos0.1)(1+cos0.2)...(1+cos10)
- Предмет:
  Информатика
- Автор:
  salemafpm
- 5 лет назад

Ответы 1

Var P:real; A:integer;BeginP:=1;For A:= 1 to 100 do P:=P*(1+Cos(A/10));WriteLn('P = ',P);End.Результат работы программы:P = 2.79308459159613E-38
- Автор:
  rosasnu5
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

Почему не только половое влечение ,но и взаимная любовь и уважение друг к другу должны предшествовать половому сближению?
- Предмет:
  ОБЖ
- Автор:
  arturosfgf
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Зделате пож!
Put in the right words.
1)My trip to the country... on the weather.
2)It was ... to live in the Wild West.
3)I have a lot of ... coins in my collection
4)Boys mustn't ... with girls.
5)The Americans fought for their ... from England.
За ранее спасибо
- Предмет:
  Английский язык
- Автор:
  leohi3h
- 5 лет назад
- Ответов:
  
  1
- Смотреть
1)Ввести массив A из 25 элементов. Cформировать массив B из элементов массива А,кратных трем.
2)Даны массив A и B из n элементов. Cформировать массив C из элементов массивов А и B, чередуя элементы.
- Предмет:
  Информатика
- Автор:
  finnegan55
- 5 лет назад
- Ответов:
  
  1
- Смотреть
какое слово лишнее весёлый быстрый вкусный осторожный
- Предмет:
  Русский язык
- Автор:
  simonin8z
- 5 лет назад
- Ответов:
  
  1
- Смотреть

How much to ban the user?

1 hour 1 day 100 years