Составить программу вычисления суммы 1/2+1/4+1/6 + ... + 1/20 с использованием оператора repeat

ABCpascal

Question

Информатика

Константиныч

19 февраля, 22:09

Составить программу вычисления суммы 1/2+1/4+1/6 + ... + 1/20 с использованием оператора repeat

ABCpascal

+4

Ответы (1)

Знаете ответ?

Светуха · Answer 1

Program p13;

Var

A:integer;

S:real;

Begin

S:=0;

A:=2;

Repeat

S:=S+1/A;

A:=A+2;

Until A>20;

WriteLn ('S = ', S) ;

End.

Результат работы программы:

S = 1.46448412698413

Составить программу вычисления суммы 1/2+1/4+1/6 + ... + 1/20 с использованием оператора repeatABCpascal

Составить программу вычисления суммы 1/2+1/4+1/6 + ... + 1/20 с использованием оператора repeat

ABCpascal