===== PascalABC.NET =====
begin
var (n, m) := ReadInteger2('Введите n и m:');
var a := MatrRandom(n, m, -99, 99);
a.Println(6);
a.Transform(p -> p * p);
Writeln;
a.Println(6)
end.
Program n1;
var sum,kp,ko,a: integer;
begin
readln(a);
sum:=0;
ko:=0;
kp:=0;
while a<>0 do
begin
sum:=sum+a;
if a>0 then kp:=kp+1
else ko:=ko+1;
readln(a);
end;
writeln(sum);
writeln(kp-ko);
end.
a:array[1..10,1..15] of integer;
i,j,k,x:integer;
begin
read(x);
k:=0;
for j:=1 to 15 do
for i:=1 to 10 do
a[i,j]:=random(101);
for j:=1 to 15 do
for i:=1 to 10 do
if a[i,j]=x then k:=k+1;
write(k);
end.
Это когда идет последовательность, например:
1. Деиствие
2...
3...и.тд
Определяет, является ли число n общим делителем всех меньших его чисел начиная с 2