найти сумму обычных чисел, встретившихся в произвольной последовательности 56
Найти сумму обычных чисел, встретившихся в произвольной последовательности 56 четырехзначных чисел.
программка паскаль.
Помогите пожалуйста, Безотлагательно
1 ответ
Teplinskih Angelina
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!
function IsPrime(n:integer):boolean;
begin
if nlt;4 then Result:=True
else begin
var found:=(n mod 2=0);
var p:=3;
while (not found) and (sqr(p)lt;=n) do
begin found:=(n mod p=0); p+=2 end;
Result:=not found
end
end;
begin
var a:=ArrRandom(56,1000,9999); a.Println;
Writeln('Сумма простых равна ',a.Where(t-gt;IsPrime(t)).Sum)
end.
Пример
9439 5453 9513 6006 9543 9665 1503 5172 1466 6841 1537 5088 2768 7795 6462 7780 6567 1956 5669 6214 3307 7069 2462 8404 3407 7707 6307 1121 8854 7039 9663 6162 8362 7376 5578 8784 4688 2745 1361 6457 6234 2320 8270 9441 2244 8934 4081 8649 9684 4137 8865 1179 7488 9410 5828 3369
Сумма простых одинакова 44132
// Внимание! Если программка не работает, обновите версию!
function IsPrime(n:integer):boolean;
begin
if nlt;4 then Result:=True
else begin
var found:=(n mod 2=0);
var p:=3;
while (not found) and (sqr(p)lt;=n) do
begin found:=(n mod p=0); p+=2 end;
Result:=not found
end
end;
begin
var a:=ArrRandom(56,1000,9999); a.Println;
Writeln('Сумма простых равна ',a.Where(t-gt;IsPrime(t)).Sum)
end.
Пример
9439 5453 9513 6006 9543 9665 1503 5172 1466 6841 1537 5088 2768 7795 6462 7780 6567 1956 5669 6214 3307 7069 2462 8404 3407 7707 6307 1121 8854 7039 9663 6162 8362 7376 5578 8784 4688 2745 1361 6457 6234 2320 8270 9441 2244 8934 4081 8649 9684 4137 8865 1179 7488 9410 5828 3369
Сумма простых одинакова 44132
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов