Автор - alekseigrachikov

РЕБЯТА ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНО!!!!!!!
Программу на паскале
Задание I заочного тура олимпиады по информатике 4 I заочного тура олимпиады по информатикеАгент 007 для выполнения очередного задания получает из
Центра секретную информацию, после обработки которой образуется
ПАРОЛЬ. Секретная информация содержит:
1) строку из 10 букв с порядковыми номерами 0..9;
2) количество передаваемых чисел;
3) сами числа.
Если сложить все цифры в каждом числе, выйдут новые числа. Далее следует
сложить все цифры в каждом из вновь полученных чисел. Процесс надо
продолжать до тех пор, пока в результате не останутся числа меньше 10
Полученные числа от 0 до 9 – это номера букв в строке. Замена чисел
буквами и дает ПАРОЛЬ. Напишите программу, которая поможет агенту 007
получить ПАРОЛЬ.

Ответ

Автор - greed15

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.

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.
© 2026 Все права защищены Политика конфиденциальности Контакты
search points attachment profile arrow left arrow right star heart verified symbols equation arrow-down question mark check menu accountancyadministrationagriculturalalgebraallarabicartart_musicbelarusbelarus_altbiologybusinesscatalachemistrychineseeconomicsegzamenglishentrepreneurshipenvironmentethicseuskarafirst_aidfrenchgalegogeographygeologygeometrygermangrammarhealthhistoryindia_langindonesian_langinformaticsitalianjapanesekazachkazach_altkoreanlanguagelatinlawlife_scienceliteraturelogicmathematicsmusicnigerian_langother_languagesotherspedagogicsphilosophyphysical_educationphysicspoliticspsychologyreligionrpa_langrussianrussian_altsciencesecurityskillssocial_sciencesociologyspanishstatisticstechnologytourismtrafficukrainianukrainian_altukrainian_literaturewos_civilisation accountancyadministrationagriculturalalgebraall_1arabicartart_music_2belarusbelarus_altbiologybusiness_2catalachemistry_1chineseeconomicsexam_3englishentrepreneurshipenvironment_2ethicseuskarasecurity_1frenchgalegogeography_4geology_4geometrygermangrammarhealthhistoryindia-langindonesian-langinformaticsitalianjapanesekazachAsset 230koreanlanguagelatinlawlife-scienceliteraturelogic_2mathematicsmusicnigerian-langotherlanguagesother_1pedagogicsphilosophyphysical_educationphysicspoliticspsychologyreligion_1rpa-langrussianrussian_altsciencesecurity_3_mskills_1allsocial_science_5_msociologyspanishstatisticstechnologytourismtrafficukrainianukrainian_altukrainian_literaturewos_civilisation