Скакой целью люди кодируют информацию?

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

8=1000(2)=8(8)=8(16)

20=10100(2)=24(8)=14(16)

33=100001(2)=41(8)=21(16)

56=111000(2)=70(8)=38(16)

115=1110011(2)=163(8)=73(16)

246=11110110(2)=366(8)=f6(16)

522=1000001010(2)=1012(8)=20a(16)

1133=10001101101(2)=2155(8)=46d(16)

2166=100001110110(2)=4166(8)=876(16)

а вообще, можно использовать инженерный режим калькулятора windows для перевода в эти системы