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

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

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.

Похожие ответы
  1. Т.к. я ездил на неё, думаю вам будет интересно) Было пять заданий. Буду выкладывать постепенно, по мере моего вспоминания) 1. Конец К-ого урока. Первый урок, в школе, начинается с 8:00 утра. Каждый урок длится 45 минут, плюс между каждым уроком идёт перемена в 5 минут.Ввод: Число (К) уроков. Максимальное число уроков - 15.Вывод: Время конца К-ого урока в формате часы (пробел) минуты.Пример: k=2 9 35; k=5 12 25;От себя: Не забудте указать что к не должно превышать 15. Не забудте перевести 60 мин в 1 час. Не забудте в конечном результате вычти 5, просто перемена же не считается) Завтра выложу ещё одну. Как только выпрошу у учителя ксерокопию, выложу 5, так как там бред полный))


Нашли ошибку?
Развитие проекта
Яндекс.Метрика