........................ЕЛЬНИК!
Var
s,s1:string;
i,n:integer;
begin
Write('Введите строку: '); Readln(s);
s1:='';
for i:=1 to Length(s) do s1:=s1+s[i]+s[i];
n:=Length(s1);
i:=n-(n mod 4);
while i>=4 do begin
Write(s1[i]);
i:=i-4
end;
Writeln
end.
Примеры
Введите строку: 123456789
8642
Введите строку: Слово
вл
7*50*40=14000 символов
в обычной кодировке 1 символ = 1 байту
14000 байт
#include <iostream>using namespace std;int main(){string s;cin>>s;for(int i=6;i>=0;i--)cout<<s[i];}