<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
ReadString.AdjacentGroup.SelectMany(t -> t.Count >= 3 ? (t.Count + t[0]).ToCharArray : t).Println;
end.
Var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
<span>End.</span>
Что решить???? Уточни пожалуйста????????
1 бит = 0.125 байтам
1 килобит = 125 байтам
1 мегабит = 125000 байтам
1 байт = 8 битам
1 килобайт = 8000 битам
1 мегабайт = 8000000 битам