2140 гб будет в мб 2140000
Var
otvet:String;
i:integer;
S0,S:String;
C:char;
begin
//Считывание данных
Writeln('Введите строкy S');
readln(S);
Writeln('Введите строкy S0');
readln(S0);
Writeln('Введите символ C');
readln(C);
//Цикл посимвольная обработка строки
for i:=1 to length(S) do
begin
//Программа вставляет подстроку S0 в строку S
//перед каждым символом C
//Сохраняя результат в otvet
if S[i]=C then
Otvet:=otvet+S0+C
else
Otvet:=otvet+S[i];
end;
Writeln('Ответ:', otvet);
<span>end.</span>
Program chisla;
uses crt;
var a,b,c,d : integer;
begin
Writeln('Введите трехзначное число: ');
Readln(a);
if (a<100) or (a>999) then writeln('Введено не трехзначное число')
else
begin
b:=a div 100;
c:=(a-(b*100)) div 10;
d:=a-(b*100)-(c*10);
Writeln('Сумма цифр этого числа равна ',b+c+d);
end
end.
Задача a
Общий вес текста/сообщения:
I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 2 * 32 * 64 шт = 4096 шт
i = 24 бит
Вес текста I = K * i = 4096 * 24 бит = 98304.0 бит
98304.0 бит = 12288.0 байт = 12.0 Кбайт
Задача b
16384.0 бит = 2048.0 байт = 2.0 Кбайт
Ответы: 4 - Г, 5 - Б, 6 - Г