PascalABC.Net const m=8; n=11; var a,b,c:array[1..m,1..n] of integer; i,j:integer; begin Randomize; Writeln('Исходный массив A'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4) end; Writeln end; Writeln('Исходный массив B'); for i:=1 to m do begin for j:=1 to n do begin b[i,j]:=Random(41)-20; Write(b[i,j]:4) end; Writeln end; Writeln('Результирующий массив С'); for i:=1 to m do begin for j:=1 to n do begin c[i,j]:=a[i,j]+b[m-i+1,n-j+1]; Write(c[i,j]:4) end; Writeln end end.
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
function IsPrime(Self:integer):boolean; extensionmethod; // является ли число n простым begin if Self<4 then Result:=True else begin var found:=(Self mod 2=0); var p:=3; while (not found) and (sqr(p)<=Self) do begin found:=(Self mod p=0); p+=2 end; Result:=not found end end;
function SumDig(Self:integer):integer; extensionmethod; // возвращает сумму цифр числа n begin var n:=Self; Result:=0; while n>0 do begin Result+=n mod 10; n:=n div 10 end end;
begin 100.To(999).Where(t->t.SumDig.IsPrime).Println end.
//Версия 3.3, сборка 1611
begin
write(range(1,ReadInteger('n=')).Aggregate(Real(1),(x,y)->x*y));
end.