Закодируйте текст в кодировке windows слов арифмометр, перфокарта, программа. десятичный и двоичный код.

арифметр: 144425144725144633144729144644144646144644144630144727144725(10 система)

000011100010110000011001000011100010111100011001000011100010111000100001

0000111000101111000111010000111000101110001011000000111000101110001011100

0001110001011100010110000001110001011100001111000001110001011110001101100

0011100010111100011001(2 система)

перфокарта: 144447144630144725144729144646144642144625144725144727144625(10 система)

000011100010110000101111000011100010111000011110000011100010111100011001

0000111000101111000111010000111000101110001011100000111000101110001010100

0001110001011100001100100001110001011110001100100001110001011110001101100

0011100010111000011001(2 система)

программа: 144447144725144646144628144725144625144644144644144625(10 система)

000011100010110000101111000011100010111100011001000011100010111000101110

0000111000101110000111000000111000101111000110010000111000101110000110010

00011100010111000101100000011100010111000101100000011100010111000011001(2 система)

можно назвать - собака 

или 

агент @ мail.ru 

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.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.