Question

Вычислить значение суммы N членов следующего ряда: 16+k/3+k/6+k/9…. N>0,K>0 вводятся с клавиатуры
Блок схему и паскаль

Answer 1

var  k, n, i: integer;
  sum: real;
begin
  readln(n, k);
  sum:=16;
  for i:=1 to n-1 do
    sum:=sum+k/i*3;
  writeln(sum);
end.