2. Відомі величини переведіть в поки невідомі. Тобто 614 400 бітів переведіть в бідійти, далі байти в кілобайти, кілобайти в мегабайти і так всі відомі величини. Бітів Байтів Кілобайт Мегабайт 614 400 524 288 256
Var n, k, i, imax, j: integer; a: array[1..100]of integer;
begin randomize; n := random(30) + 10; for i := 1 to n do begin a[i] := Random(30); write(a[i], ' '); end; writeln();
{сортировочка} for i := 1 to n - 1 do begin imax := i; for j := i + 1 to n do if a[j] > a[imax] then imax := j; k := a[i]; a[i] := a[imax]; a[imax] := k; end;
for i := 1 to n do write(a[i], ' ');
k := 0; for i := 2 to n - 1 do if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then k := k + 1;
if a[1] <> a[2] then k := k + 1; if a[n] <> a[n - 1] then k := k + 1;
1) const n = 10; var a : array [1..n] of integer; i : integer; begin randomize; for i := 1 to n do begin a[i] := 22 + random(114); if a[i] > 100 then writeln (a[i]); end; end.
2) var a,n,r,i : integer; begin r := 1; readln (a,n); for i := 1 to n do r := r * a; writeln (r); end.
3)
var n,i,r : integer; begin r := 1; readln (n); for i := 1 to n do r := r *i; writeln (r); end.
4) var i : integer; begin for i := 192 to 223 do write(chr(i); ,' '); end.
5) var i : integer; begin for i := 255 downto 240 do write (chr(i),' '); writeln(); for i := 239 downto 224 do write (chr(i),' '); end.
7) var i : integer; begin for i := 122 downto 97 do writeln(chr(i)); end.
n, k, i, imax, j: integer;
a: array[1..100]of integer;
begin
randomize;
n := random(30) + 10;
for i := 1 to n do
begin
a[i] := Random(30);
write(a[i], ' ');
end;
writeln();
{сортировочка}
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if a[j] > a[imax] then
imax := j;
k := a[i];
a[i] := a[imax];
a[imax] := k;
end;
for i := 1 to n do
write(a[i], ' ');
k := 0;
for i := 2 to n - 1 do
if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then
k := k + 1;
if a[1] <> a[2] then k := k + 1;
if a[n] <> a[n - 1] then k := k + 1;
writeln();
writeln('No doubles - ', k);
end.