Const
n = 100;
var
a: array[1..n] of integer;
i: integer;
begin
//заполняем массив случайными значениями в диапазоне [0;100]
Randomize; //инициализация датчика случайных чисел
for i := 1 to n do a[i] := random(100);
i := 1; //1 - это два в нулевой степени
while i < n do
begin
writeln('a(', i, ')=', a[i]);
i := 2 * i; //удваиваем индекс, чтобы получить очередную степень двойки
end
end.
Результат работы программы:
a(1)=26
a(2)=21
a(4)=29
a(8)=74
a(16)=23
a(32)=44
a(64)=20
48 бит
по 8 бит на каждый символ
program ms301;
var a,b,c:integer;
begin
writeln('Введите три числа');readln(a,b,c);
A:=sqrt(a);
B:=sqrt(b);
c:=sqrt(c);
writeln(a,', ',b,', ',c);
readln;
end;
Var s: string;
i: integer;
begin
write('строка: '); readln(s);
i:=1;
while i<=length(s) do
begin
if s[i]='2' then
begin
s:=copy(s,1,i-1)+'!!!'+
copy(s,i+1,length(s)-i+3);
i:=i+3;
end;
i:=i+1;
end;
writeln('новая строка: ',s);
<span>end.
</span>