uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
Program zadacha;
var s:string;
begin
writeln ('Введите слово "курсор"');
readln (s);
delete(s,1,4);
insert('танц',s,1);
writeln(s);
end.
В алфавите
русском: 33 буквы
английском: 26
значит всего: (33 + 26)*2 + 10 + 15 = 143 символа. Значит каждый символ кодируется
битами или одним байтом.
значит весь текст имеет объем:
64*32*100*1 байт = 204800 байт = 200 кБайт