PascalABC.NET 3.5.1 + .NET Framework 4.7.1
#1
begin
var A := ReadSeqInteger('enter seqeunce: ',ReadInteger('seq length: '));
A.Where(p -> p mod 3 = 0).Count.Println;
end.
#2
begin
var A := ReadSeqInteger('enter seqeunce: ',ReadInteger('seq length: '));
A.Where(p -> (p>=100) and (p <= 999)).ToList.Println;
end.
#3
begin
Range(1,10).Select(p -> p * p).sum.Println;
end.
Объяснение:
var n,a,b,c: integer;
begin;
read(n);//количество чисел в последовательности
for a:=1 to n do begin
read(b);
if (b mod 3)=0 then c:=c+1;
end;
write (c);
end.
var n,a,b,c: integer;
begin;
read(n);//количество чисел в последовательности
for a:=1 to n do begin
read(b);
if (b div 100)>0 then c:=c+1;
end;
write (c);
end.
var n,a,b,c: integer;
begin;
for a:=1 to 10 do begin
c:=c+(a*a);
end;
write (c);
end.
Объяснение:
