Var a:integer;
begin
write('Введите число: ');
readln(a);
if a<0 then write ('-');
while a<>0 do
begin
write (abs (a mod 10));
a:=a div 10
end
end.
Для кодирования 128 символов необходимо
128=2^7
7 бит на каждый символ
в тексте 2000 символов, на их кодирование надо
7*2000=140000 бит=914000/1024)кбит=13.68 кбит-округляем до целых
значит 14кбит
Var
A:array[1..10] of integer;
k:integer:=0;
Begin
For var i:= 1 to 10 do
Begin
A[i]:=random(10,99);
Write(A[i],' ');
if (i mod 2 = 0)and(A[i] mod 2 = 0) then k+=1;
End;
WriteLn;
WriteLn('Количество четных элементов с четными индексами: ',k);
End.
Var
A:array[1..10] of integer;
P:real:=1;
Begin
For var i:= 1 to 10 do
Begin
A[i]:=random(10,99);
Write(A[i],' ');
if A[i] mod 5 = 0 then P*=A[i];
End;
WriteLn;
WriteLn('Произведение элементов, кратных 5: ',P);
End.