Ввести n чисел и найти сумму простых чисел в паскале
65
ОТВЕТЫ
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:=(n mod 2=0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
Result:=not found
end
end;
begin
Writeln('S=',ReadSeqInteger('Вводите:',ReadInteger('n='))
.Where(m->IsPrime(m) and (m>0)).Sum)
end.
Пример
n= 6
Вводите: 20 17 31 15 19 7 9
S=74
// Внимание! Если программа не работает, обновите версию!
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:=(n mod 2=0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
Result:=not found
end
end;
begin
Writeln('S=',ReadSeqInteger('Вводите:',ReadInteger('n='))
.Where(m->IsPrime(m) and (m>0)).Sum)
end.
Пример
n= 6
Вводите: 20 17 31 15 19 7 9
S=74
14
Отв. дан
Юрий
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Opimath
В массиве действительных чисел найти сумму квадратов восьминаименьших елементов(упорядочение ...
2018-09-25 00:00:00
Кира
Винни пух,Тигра и Пятачок вместе собрали 90 орехов. Винни ...
2018-09-25 00:00:00
Thozel
Два поезда отошли одновременно от одной станции в противоположных ...
2018-09-25 00:00:00
Beazenrad
К сумме чисел 1,04 и −1 1/25 прибавь число, ...
2018-09-25 00:00:00