<span>Способ кодирования информации с помощью того же алфавита ,что и исходный текст - я не знаю... не написано сколько всего букв
</span><span>Способ кодирования информации с помощью чисел - числовой;
</span>
1,25 кбайт / 2048 симв = 0,0006103515625 кбайт на символ
0,0006103515625 кбайт на симв * 1024 * 8 = 5 бит на символ
2^5 = 32 символа (букв) мощность алфавита.
Ответ:
Program test1;
Var
A,B,C,k:Integer;
Begin
k:=0;
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If A > 0 Then
k:=k + 1;
If B > 0 Then
k:=k + 1;
If C > 0 Then
k:=k + 1;
WriteLn('Количество положительных чисел в исходном наборе:',k);
End.
Program zadacha;varN,s,a : longint;beginwriteln('vvedite chislo: ');readln(n);writeln('vvedite k');readln(a);s := 0;while n <> 0 dobegins := s + (n mod 10);n := n div 10;end;if (s mod a) = 0 thenwriteln('kratna')elsewriteln('net');end.
