На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

 var k:string; n, s: biginteger; 
 begin 
   for var i:= 1 to 10 do 
     begin 
  k:= '1' * 10 + '2' * i; 
   while ('21' in k) do 
   begin 
     k:= k.Replace ('21', '6', 1); 
   end; 
   
   n:= strtoint(k); 
    
   while n>0 do 
   begin 
     s:= s + n mod 10; 
     n:= n div 10; 
   end; 
   if s = 50 then  
     println (k, ' ', i); 
   end; 
 end.

 s := 0; 
 foreach var c in k do 
   s += ord(c) - ord('0');

Создай свой форум на сервисе Borda.ru
Форум находится на 3 месте в рейтинге
Текстовая версия