text = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'
num = int(input())
str = input().strip()
res = ''
for c in str:
res += text[(text.index(c) + num) % len(text)]
print('Result: "' + res + '"')
Моё решение - во вложении
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('Клиндухова','Кобзарь','козловский','капша','мороз Артем',
'Мороз ИЛья','Павлова','Глухих');
s.Println;
s:=s.OrderBy(t->t.ToUpper).ToArray;
s.Println
end.
Во-первых программа вообще не запуститься, по той причине что паскаль не знает слова car, во второй строчке нужно исправить на var. , вторая ошибка, паскаль вам скажет что S он не знает! а по логике ответом будет s=6
Блок схема ниже!!
По программе получается что программа находит наибольшее значение на заданном интервале