Регистрация
likaoolika
27.08.2022 23:36
Информатика
Есть ответ 👍

Для данного натурального числа n требуется вычислить сумму : 1 + 1/2 + + 1/3 + + 1/n. постройте алгоритм и напишите 2 варианта программы на паскале с циклом -до и с циклом-пока

207
416
Посмотреть ответы 2

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

htntjtjt
htntjtjt
4,7(21 оценок)

1)

var n,z: integer; i,sum: real; beginreadln (n); while (z< > n) dobeginz: =z+1; i: =1/z; sum: =sum+i; writeln (sum); end; end.

 

2)

var n,z: integer; i,sum: real; beginreadln (n); repeatz: =z+1; i: =1/z; sum: =sum+i; writeln (sum); until (z=n); end.

Nastya1111113466
Nastya1111113466
4,8(18 оценок)

Квадратів = 9

Трикутників = 90

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