Задать вопрос
16 февраля, 05:26

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

+3
Ответы (1)
  1. 16 февраля, 08:18
    0
    Var

    P:real;

    A:integer;

    Begin

    P:=1;

    For A: = 1 to 100 do

    P:=P * (1+Cos (A/10)) ;

    WriteLn ('P = ', P) ;

    End.

    Результат работы программы:

    P = 2.79308459159613E-38
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Вычислить : (1+Cos0.1) (1+cos0.2) ... (1+cos10) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы