Циклические структуры: дано натуральное число n, вычислить заданную сумму - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте. Не получается решить задачу. Помогите пожалуйста: Дано натуральное число n. Вычислить:

Решение задачи: «Циклические структуры: дано натуральное число n, вычислить заданную сумму»

textual
Листинг программы
uses crt;
var k,n,i:integer;
    s,p:real;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for k:=1 to n do
 begin
  p:=k;
  for i:=1 to 10 do
  p:=p*(k+i);
  s:=s+p;
 end;
writeln('Summa=',s);
readkey
end.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая используется для работы с консольным вводом-выводом.
  2. Затем объявляются переменные k, n, i, s и p. Переменная k имеет тип integer (целое число), переменная n также имеет тип integer и считывается с помощью функции readln. Переменные s и p имеют тип real (число с плавающей точкой).
  3. Выводится сообщение n=, после чего считывается значение переменной n с помощью функции readln.
  4. Инициализируется переменная s значением 0.
  5. Запускается цикл for, который выполняется n раз. На каждой итерации цикла переменная k принимает значение k, а переменная i принимает значение от 1 до 10.
  6. Внутри цикла выполняется вычисление значения переменной p с помощью формулы p = k + i.
  7. Значение переменной p добавляется к сумме s.
  8. После завершения внутреннего цикла выводится сообщение Summa= и значение переменной s.
  9. С помощью функции readkey происходит ожидание нажатия клавиши перед завершением программы.

Оцени полезность:

9   голосов , оценка 3.667 из 5
Похожие ответы