Var i: integer; s,t: string; begin writeln ('введите строку'); readln(s); i: =2; while i< =length(s) do begin t: =t+s[i]; i: =i+2; end; writeln(t); end.
Спасибо
Ответ дал: Гость
компьютер входит в состав технической системы.
компьютер является надсистемой для ос.
Ответ дал: Гость
в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.
а для расшифровки эти коды нужно вычитать, получаем
Популярные вопросы