begin writeln('Введите количество членов последовательности k'); readln(k); s := 20; for i := 1 to k do s := s + 1 / (i * k); writeln('Сумма последовательности равна ', s) end.
Тестовый пример:
Введите количество членов последовательности k 10 Сумма последовательности равна 20.2928968253968
Варианты, дающие те же результаты: var i, k: longint; s: real;
begin writeln('Введите количество членов последовательности k'); readln(k); s := 20; i:=1; while i<=k do begin s := s + 1 / (i * k); i:=i+1 end; writeln('Сумма последовательности равна ', s) end.
var i, k: longint; s: real;
begin writeln('Введите количестко членов последовательности k'); readln(k); s := 20; i:=1; repeat s := s + 1 / (i * k); i:=i+1 until i>k; writeln('Сумма последовательности равна ', s) end.
Sub Ex() Dim Y() As Integer, X() As Integer Dim i As Integer, n As Integer Range(Cells(1, 2), Cells(100, 2)).ClearContents i = 1 Do While Len(Cells(i, 1).Value) <> 0 i = i + 1 Loop n = i - 1 ReDim Y(1 To n), X(1 To n) For i = 1 To n Y(i) = Cells(i, 1).Value X(i) = Y(i) + i Cells(i, 2).Value = X(i) Next i End Sub
Предполагается, что данные располагаются в колонке А, начиная с ячейки А1 В колонку B будет выведен результирующий массив. Признак конца считывания - пустая ячейка в колонке А
розгалуження вкладені в цикл - це фрагмент алгоритму у якому розгалуження містяться в тілі циклу.