<span>1 байт = 8 бит, тогда </span>8 байт - 64 бит
Джуди занимается пением и живёт в Риме
Айрис занимается балетом и живёт в Париже
Линда занимается кино и живёт в Чикаго
Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>
Pascal
Var n,k,pr,i,a:longint;
begin
readln(n);
pr:=1;
for i:=1 to n do begin read(a);
if a mod 10=1 then pr:=pr*a;
if a mod 6= 0 then k:=k+1;
end;
writeln('произведение = ',pr);
writeln('количество чисел кратных 2 и 3= ',k);
end.
12(10)=1100(2) -две
ттттттттттттттттттттт