Программу на паскале i заочного тура олимпиады - вопрос №95466594 от Denis12121210 20.06.2020 08:50

Question

Информатика: Программу на паскале i заочного тура олимпиады по информатике 4 i заочного тура олимпиады по информатикеагент 007 для выполнения очередного получает из центра секретную информацию, после обработки которой образуется пароль. секретная информация содержит: 1) строку из 10 букв с порядковыми номерами 0..9; 2) количество передаваемых чисел; 3) сами числа. если сложить все цифры в каждом числе, выйдут новые числа. далее следует сложить все цифры в каждом из вновь полученных чисел. процесс надо продолжать

Denis12121210 · Answer

function SumNums(i: integer): integer;

begin

while i > 9 do

i := i.ToString.Select(ch->integer.Parse(ch)).Sum;

Result := i;

end;

begin

var s := ReadlnString('Строка из 10 символов =');

ReadSeqInteger('Числа:', ReadInteger('кол-во чисел ='))

.Select(SumNums)

.Select(n->s[n+1])

.Print;

end.