Вычислить через for и repeat в паскале
(1+sin⁡0,1 )(1+sin⁡0,2 )…(1+sin⁡10)

4 Окт 2019 в 13:47
263 +1
0
Ответы
1

program CalculateExpression;

var
i: integer;
result: real;

begin

result := 1;

for i := 1 to 10 do
begin
result := result * 1+sin(i/10)1 + sin(i/10)1+sin(i/10);
end;

writeln′Result:′,result:0:5'Result: ', result:0:5Result:,result:0:5;

end.

19 Апр 2024 в 14:44
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир