Найти сумму простых чисел до N простое число, которое делится только на 1 и на само себя - Turbo Pascal

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

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

Задано целое число N. Найти сумму простых чисел до N. простое число, которое делиться только на 1 и на самого себя

Решение задачи: «Найти сумму простых чисел до N простое число, которое делится только на 1 и на само себя»

textual
Листинг программы
Var i,j,n,s,k:longint;
Begin
    write('Введите n: ');readln(n);
    For i:=2 to n do
    Begin
      k:=1;
      For j:=2 to i div 2 do
       if i mod j = 0 then k:=0;
      if k=1 then s:=s+i;
    End;
    writeln('Сумма простых = ',s);
    readln;
End.

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

  1. В начале кода объявляются переменные i, j, n, s и k типа longint.
  2. Затем происходит чтение значения переменной n с помощью функции readln.
  3. Далее идет цикл for, который выполняется от 2 до n.
  4. Внутри цикла проверяется, делится ли число i на любое число от 2 до i-1 без остатка. Если да, то значение переменной k устанавливается в 0.
  5. Если значение k равно 1, то сумма простых чисел s увеличивается на i.
  6. По завершении внутреннего цикла проверяется значение переменной k. Если оно равно 1, то выводится сообщение о сумме простых чисел.
  7. После этого происходит чтение следующего ввода с помощью функции readln.

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

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