Компьютер, телефон, планшет, телевизор
32кб = 262144бит
8^x=262144
x=6
Constn=60;var a,l,i,j:integer;mas: array [1..n] of integer;begin randomize;writeln('Исходный массив '); for i:=1 to n do begin mas[i]:=random(64); write(mas[i]:4); end; for i:=1 to n-1 do for j:=1 to n-i do if mas[j] < mas[j+1] then begin a:=mas[j]; mas[j]:=mas[j+1]; mas[j+1]:=a; end; writeln(); writeln('Массив по убыванию'); for i:=1 to n do write(mas[i]:4); end.
Потому что ее употребляют в различных коммуникациях.
Var
c, i, s: real;
begin
s := 0;
c := 50;
while c > 12 do
begin
i := (c / 100) * 20;
c := c - i;
s := s + 1;
end;
write(s);
end.