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