Переводим 3,5 КБ в биты,учитывая,что один знак=8битам
3,5 КБ=286720бит
Теперь делим данное число на кол-во знаков по битам
Получаем 286720/8=35 840 Байт(знаков)
Следует учитывать,что это решение верно,для кодировки КОИ-8
ОТВЕТ:35 840 знаков
<u>алг </u>
<u>нач</u>
вещ <em>x</em>, <em>y</em>
ввод <em>x </em>
<em>y</em> := (1 - <em>x</em> ** 2 + 5 * <em>x</em> ** 4) ** 2
вывод <em>y</em>
<u>кон</u>
8*32*64*40=655 360 бит = 8190 байт = 80 Кбайт
Var i,j: integer;
chislo: string;
begin
chislo:='12323';
for j:=1 to 14 do
begin
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='1' then begin delete(chislo,i,1);insert('33',chislo,i); inc(i); end;
inc(i);
end;
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='2' then begin delete(chislo,i,1);insert('1',chislo,i); end;
inc(i);
end;
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='3' then begin delete(chislo,i,1);insert('2',chislo,i); end;
inc(i);
end;
end;
Writeln(chislo);
readln;
end.
Function HOD(a: integer; b: integer): integer;
// Нахождение НОД
var
i: integer;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
HOD := a
end;
var
A, B, C: integer;
begin
Write('Введите через пробел значения A,B,C: '); Readln(A, B, C);
Writeln('НОД(A,B,C)=', HOD(HOD(A, B), C))
end.
<u>Тестовое решение:</u>
Введите через пробел значения A,B,C: 1532 628 388
НОД(A,B,C)=4
