Кодировка текста. (в место букв — цифры)

Кодировка текста. (в место букв — цифры)

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 05.05.2015.

Загрузка...
Ответов: 0 Просмотров: 246 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    uses crt;
    var w,q,s: string;
    var a: integer;
    begin
    write('Введите слово: ');
    readln(s);
    for var i:=1 to s.Length do
    begin
    a := Ord(s);
    w:=IntToStr(a);
    q := q + w;
    end;
    writeln('Ждите...');
    delay(650);
    writeln('Текст закодирован: ',q);
    writeln('Для выхода нажмите Enter ');
    read;
    end.
     
    05.05.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.