РЕБЯТА ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ Необходимо!!!!!!!Программку на паскалеЗадание I заочного тура
РЕБЯТА ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ Необходимо!!!!!!!
Программку на паскале
Задание I заочного тура олимпиады по информатике 4 I заочного тура олимпиады по информатикеАгент 007 для исполнения очередного задания получает из
Центра секретную информацию, после обработки которой образуется
ПАРОЛЬ. Скрытая информация содержит:
1) строку из 10 букв с порядковыми номерами 0..9;
2) количество передаваемых чисел;
3) сами числа.
Если сложить все числа в каждом числе, выйдут новые числа. Дальше следует
сложить все цифры в каждом из вновь приобретенных чисел. Процесс надобно
продолжать до тех пор, пока в итоге не останутся числа меньше 10
Приобретенные числа от 0 до 9 это номера букв в строке. Подмена чисел
знаками и дает ПАРОЛЬ. Напишите программку, которая поможет агенту 007
получить ПАРОЛЬ.
function SumNums(i: integer): integer;
begin
while i gt; 9 do
i := i.ToString.Select(ch-gt;integer.Parse(ch)).Sum;
Result := i;
end;
begin
var s := ReadlnString('Строка из 10 символов =');
ReadSeqInteger('Числа:', ReadInteger('кол-во чисел ='))
.Select(SumNums)
.Select(n-gt;s[n+1])
.Print;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.