Function P(A:integer):boolean; Var d,K:integer; Begin P:=true; if A < 2 then P:=false else if A > 3 then if A mod 2 = 0 then P:=false else Begin K:=Trunc(Sqrt(A)); d:=3; While d <= K do Begin if A mod d = 0 then P:=false; d:=d+2 End; End; End; Var A,n:integer; S:real; Begin S:=0; Write('n = ');ReadLn(n); Write('Введите n чисел: '); For n:= 1 to n do Begin Read(A); if P(A) then S:=S+A; End; Write('S = ',S) End.
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Write('Введите количество строк и столбцов массива: '); var (m,n):=ReadInteger2; Writeln('*** Исходный массив ***'); var a:=MatrRandom(m,n,-5,5); a.Println(3); Writeln(3*a.ColCount*'-'); var k:=ReadInteger('Введите число А для замены нулей:'); a.Transform(x->x=0?k:x); // вот это и вся замена... Writeln('*** Результат ***'); a.Println(3) end.
Var d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
if A > 3 then
if A mod 2 = 0 then P:=false
else
Begin
K:=Trunc(Sqrt(A));
d:=3;
While d <= K do
Begin
if A mod d = 0 then P:=false;
d:=d+2
End;
End;
End;
Var
A,n:integer;
S:real;
Begin
S:=0;
Write('n = ');ReadLn(n);
Write('Введите n чисел: ');
For n:= 1 to n do
Begin
Read(A);
if P(A) then S:=S+A;
End;
Write('S = ',S)
End.