Составить программу позволяющую удвоить все буквы а в строке

Var s,t: string; i: integer; begin writeln ('введите строку: '); readln (s); t: =''; for i: =1 to length(s) do if s[i]='а' then t: =t+s[i]+s[i] else t: =t+s[i]; writeln (t); end.

Program gt; var a: string; l,i: longint; begin readln(a); l: =length(a); for i: =1 to l do begin write(a[i],a[i]); end; end.

ответ:

ропор и топор

объяснение:

представим что имеем дело с 4-ичной системой счисления { 0 - о, 1 - п, 2 - р, 3 - т }. в таком случае вышенаписанный ряд можно представить в такой виде:

1. () = 0 в 10ичной сс

2. (1) = 1 в 10ичной сс

3. (2) = 2 в 10ичной сс

4. (3) = 3 в 10ичной сс

5. (00010) = 4 в 10ичной сс

исходя из этого, чтобы получить слово, находящееся на 531 месте и 787 месте, достаточно перевести числа 530 и 786 в 4-ичную систему счисления и заменить цифры буквами.

1.

530 / 4 = 132 (2 остаток)

132 / 4 = 33 (0 остаток)

33 / 4 = 8 (1 остаток)

8 / 4 = 2 (0 остаток)

530(10) = 20102 (4)

замена: ропор

2.

786 / 4 = 196 (2 остаток)

196 / 4 = 49 (0 остаток)

49 / 4 = 12 (1 остаток)

12 / 4 = 3 (0 остаток)

786(10) = 30102(4)

замена: топор

Var x,y,z: integer;           begin   write ('введите x: ');   readln(x);   write ('введите y: ');   readln(y);   write ('введите z: ');   readln(z);   if (x> 0)and(y> 0)and(z> 0)then       begin    x: =x+2; y: =y+2; z: =z+2;     end       else      begin    x: =abs(x); y: =abs(y); z: =abs(z);     end ;     writeln('x= ',x);     writeln('y= ',y);     writeln('z= ',z);     end.