Вычислить (1+sin 0,1) (1+sin 0,2) . (1+sin 10)

@СфантазиейНапряг · Регистрация: 17.01.2013

Студворк — интернет-сервис помощи студентам

Вычислить (1+sin 0,1) (1+sin 0,2) ... (1+sin 10)

Помогите сделить не могу разобратся.
Зарание Спасибо.

Bringoff · 18.01.2013, 18:49

Pascal

var
 result,index:real;
 begin
 index:=0.1;
 result:=1+sin(index);
 while index<=10 do
  begin
   index:=index+0.1;
   result:=result*(1+sin(index));
  end;
  Writeln(result:4:25);
 end.

Вроде так. Насколько понял, там между скобками умножение.

@СфантазиейНапряг · 18.01.2013, 19:01 **[ТС]**

Сообщение от Izobara

Pascal

var
 result,index:real;
 begin
 index:=0.1;
 result:=1+sin(index);
 while index<=10 do
  begin
   index:=index+0.1;
   result:=result*(1+sin(index));
  end;
  Writeln(result:4:25);
 end.

Вроде так. Насколько понял, там между скобками умножение.

да там умножить..
Большое спсибо.

@СфантазиейНапряг 0 / 0 / 2 Регистрация: 17.01.2013 Сообщений: 7
		1
	Вычислить (1+sin 0,1) (1+sin 0,2) . (1+sin 10) 17.01.2013, 21:13. Показов 20222. Ответов 2 Метки нет (Все метки) Вычислить (1+sin 0,1) (1+sin 0,2) ... (1+sin 10) Помогите сделить не могу разобратся. Зарание Спасибо. 0

Опции темы

Вычислить (1+sin 0,1) (1+sin 0,2) . (1+sin 10)

Решение