Визначте за характеристикою, що це за етап розв'язування компетентнісних задач? ...виконується порівняння та зіставлення відомостей, одержаних із різних джерел, виключення невідповідних та несуттєвих відомостей, структурування даних, отримання нових даних на основі відомих, формулювання висновків.Змістовний аналіз формулювання задачіПошук інформаційних матеріалівПобудова інформаційної моделі задачіВибір засобів опрацювання данихОпрацювання данихПодання результатів розв'язування задачі​

За каждую итерацию цикла n возрастает на 8. Нам нужно минимум 125 итераций, чтоб получить n > 1000, потому что 4 + 8*125 > 1000, а 4 + 8*124 < 1000. Можно и больше 125 итераций, об этом дальше

За каждую итерацию цикла s растёт на 5, пока не превысит 400. Нам нужно как минимум 125 итераций, как мы выяснили, а для этого стартовое значение s должно быть больше чем

400 - 5*125 = 400 - 625 = -225,

но больше или равно

400 - 5*124 = 400 - 620 = -220.

Ну и на отрезке (-225; -220] максимум найти несложно.

Если число итераций N будет больше 125, то больше будет разница 400 - 5*N , а значит меньше будет стартовое значение S, что нас не устраивает.

ответ: -220

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.