в скреч треба сделать эту задачу. Перед останнім етапом експедиції, який мае тривати 10
днів, запас води складав 200 літрів. З кожним наступним днем пот-
реба у воді зростає на 10% відносно витрати води за попередній
день. За перший день витрата води склала х літрів (значення хуво-
диться з клавіатури). Експедиція тривае доти, поки е вода. За яких
умов експедиція може завершити шлях без зовнішньої до Якщо не вистачить води, то на скільки днів?​

Программа:

Python:

import sys

max, min = -(sys.maxsize), sys.maxsize

c = 0

N = int(input('N = '))

print('Введите массив:')

arr = [int(input()) for i in range(N)]

for i in arr:

   if len(str(i)) == 2 and i % 3 == 0:

       if i < min:  min = i

       elif i > max:  max = i

if max != -(sys.maxsize):  print('Максимальное число:', max)

else: print('Нет максимального числа')

if min != (sys.maxsize):  print('Минимальное число:', min)

else: print('Нет минимального числа')

Pascal:

var

 arr: array of integer;

 N, i, max, min, j, c: integer;

procedure Symv(j: integer; var c: integer);

begin

 while j > 0 do begin

   j := j div 10;

   c += 1;

 end;

end;

begin

 max := -MAXINT;

 min := MAXINT;

 write('N = ');  readln(N);

 SetLength(arr, N);

 writeln('Введите элементы массива:');

 for i := 0 to N - 1 do readln(arr[i]);

 writeln(arr);

 for i := 0 to N - 1 do begin

   Symv(arr[i], c);

   if (c = 2) and (arr[i] mod 3 = 0) then begin

     if arr[i] < min then min := arr[i]

     else if arr[i] > max then max := arr[i]

   end;

   c := 0;

 end;

 if max <> -MAXINT then writeln('Максимальное число: ', max)

 else writeln('Нет максимального числа.');

 if min <> MAXINT then writeln('Минимальное число: ', min)

 else writeln('Нет минимального числа.');

end.

При установке программа КуМир по умолчанию рекомендует выбрать для установки папку внутри директории "Program Files". Если в качестве папки для установки программы КуМир пользователем была выбрана его личная папка, то после деинсталляции (удаления) программы КуМир эта папка уничтожается безвозвратно. Иногда данное поведение не является желательным.

Крайне желательно использовать для установки ту папку, которую система КуМир предлагает по умолчанию. Если это невозможно, например, из-за отстуствия прав, то настоятельно рекомендуется создать отдельную папку, используемую только для установки системы КуМир, и ни для чего больше, и установить систему КуМир в неё. Надо помнить, что эта папка тоже будет удалена при деинсталляции системы КуМир.

Объяснение: