//PascalABC.NET
begin
var product: int64;
product := 1;
var seq := range(1, 99).Where(x -> x mod 2 <> 0).Select(x -> x * x);
foreach var x in seq do
product := product * x;
write(product);
end.
Program num1;
Uses crt;
Var
a :array [1..10] of integer;
i : integer;
Begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']=');readln(a[i])
end;
for i:=1 to 10 do
if a[i]<0 then a[i]:=abs(a[i]);
writeln('********************************');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
End.
4, там через тире написано
истинность это верный/неверный?если так то верный
1 бит = 0.125 байтам
1 килобит = 125 байтам
1 мегабит = 125000 байтам
1 байт = 8 битам
1 килобайт = 8000 битам
1 мегабайт = 8000000 битам