Олимпиада. Шпион - Pascal

Формулировка задачи:

Ваня и Саша решили закодировать свои сообщения след.образов: строчные и заглавные буквы, знаки препинания ( . , : ; ? ! ) и пробел заменить на бинарные расширения коды ASCII записанные наоборот, остальные символы оставить без изменений. Помогите закодировать сообщение для Саши. Пример: Ввод: 2а+3B? Вывод:210000110+30100001011111100. Спасибо. Огромное

Код к задаче: «Олимпиада. Шпион - Pascal»

textual
var
  s,r,t:string;
  j,i:integer;
begin
  readln(s);
  for i:=1 to length(s)do begin
    if s[i] in ['a'..'z','A'..'Z','а'..'я','А'..'Я','ё','Ё','.',',',':',';',' ','?','!'] then begin
      j:=ord(s[i]);t:='';
      while j>0 do begin
        t:=t+chr(j mod 2+48);
        j:=j div 2;
      end;  
      for j:=length(t) to 7 do t:=t+'0'
    end else t:=s[i];
    r:=r+t;
   end;
   writeln(r)
 end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.071 из 5


СДЕЛАЙТЕ РЕПОСТ