Составить программу нахождения творения чисел:1/2, 2/3 ... 9/10  Язык: Pascal

Составить программу нахождения творенья чисел:
1/2, 2/3 ... 9/10
Язык: Pascal

Задать свой вопрос
2 ответа
Var
chisl, znam, multi: real;
begin
multi := 1;
chisl := 1;
znam := 2;
for var k := 1 to 9 do
begin
multi *= chisl / znam;
chisl += 1;
znam += 1;
end;
write(multi);
end.
Vova Vyzhlecov
ой, я сумму вывел
Костян Ножнко
Можешь поставить нарушение? Просто кнопки поменять нету
А если немножко пошевелить мозгами поначалу?

\displaystyle  \frac12\times \frac23 \times \frac34\times ... \times \frac89\times \frac910= \frac1\cdot2\cdot3\cdot ... \cdot8\cdot92\cdot3\cdot4\cdot ... \cdot9\cdot10= \frac110

Так что нужно просто вывести 0.1 ))))

begin
   Writeln('0.1')
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт