Практическое задание

Билет 14

2. Задача на разработку алгоритама (программы), содержащей команду (оператор) цикла.

Задача.Написать программу на нахождение суммы N первых слагаемых ряда
а1+а2+а3+..., где член ряда задается выражением a^k = 1/к²

Решение:

Program summa;
Var S: real;
N, K: integer;
Begin
Writeln ('N=');
Readln (N);
S:=0
For k:=1 to N do
S:=S+1/K+k;
Writeln ('summa',S);
Readln;
End.

Сайт создан в системе uCoz