Регистрация
znanijanet2017
31.03.2022 21:02
Информатика
Есть ответ 👍

4) Написать программу Pascal, которая вычисляет произведение первых n членов ряда 1, ½, 1/3, ¼,… Количество членов ряда задается во время работы программы (используя цикл с параметром).
5) Решить задачу 4 используя цикл с предусловием
6) Решить задачу 4 используя цикл с постусловием

141
305
Посмотреть ответы 3

Ответы на вопрос:

krutoipatan2003
krutoipatan2003
4,4(17 оценок)

#1

begin

 var N := ReadInteger();

 var sum:real := 1;

 for var i := 1 to N do sum *= 1 / i;

 sum.println;

end.

#2

begin

 var N := ReadInteger();

 var sum:real := 1;

 var divisor := 1;

 while divisor <= N do begin

   sum *= 1/divisor;

   divisor += 1;

 end;  

 sum.Println;

end.

#3

begin

 var N := ReadInteger();

 var sum:real := 1;

 var divisor := 1;

 repeat begin

   sum *= 1/divisor;

   divisor += 1;

 end;  

 until divisor > N;

 sum.Println;

end.

А вообще:

begin

 SeqGen(ReadInteger(), p -> 1/p, 1).product.Println;

end.

Valerie954
Valerie954
4,7(34 оценок)

1)begin

var N := ReadInteger();

var sum:real := 1;

for var i := 1 to N do sum *= 1 / i;

sum.println;

end.

2)begin

var N := ReadInteger();

var sum:real := 1;

var divisor := 1;

while divisor <= N do begin

  sum *= 1/divisor;

  divisor += 1;

end;  

sum.Println;

end.

3)begin

var N := ReadInteger();

var sum:real := 1;

var divisor := 1;

repeat begin

  sum *= 1/divisor;

  divisor += 1;

end;  

until divisor > N;

sum.Println;

end.

Объяснение:

почти тоже самое но сделал сам

SpaniGar
SpaniGar
4,5(58 оценок)
64 * 40 * 56 = 143360 – символов в статье;143360 * 16 = 2293760 бит = 286720 байт = 280 Кбайт – объем статьи.

ответ: 2)

Популярно: Информатика