Регистрация
Инав
03.05.2020 10:49
Информатика
Есть ответ 👍

Паскаль зашифровать слово, поставив букве ее номер в алфавите.

161
460
Посмотреть ответы 2

Ответы на вопрос:

magomed200495
magomed200495
4,5(37 оценок)
Var s: string; i: integer; begin readln(s); for i: =1 to length(s) do if s[i] in ['а'..'я'] then write(ord(s[i])-ord('а')+1,' ') else write(ord(s[i])-ord('а')+1,' '); end.
Пааапртоо
Пааапртоо
4,6(7 оценок)
Если каждый игрок будет отрезать одинаковый кусок веревки(5см) то победит 2 игрок, а если по 4см то победит 1игрок

Популярно: Информатика