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.
Объяснение:
В Мексике появится первая в мире деревня, созданная с
Создание полноценного жилья с технологии 3D-печать уже давно ни у кого не вызывает удивления. Поскольку такой строительства более! Также установлен мировой рекорд по самому большому уличному 3D-рисунку в
Лондонский дуэт 3D-стрит-арт художников 3D Joe and Max установил 17 ноября рекорд Гиннесса за самый большой уличный 3D-рисунок. Для выставки Парижской недели моды, арт студия для всемирных брендов решила сделать 3D фон чтобы покупателям было интересно смотреть на сам товар, и это очень классно что мир так продвигается!
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.
Объяснение: