Разработать, ввести в эвм и отладить программу для расчета новой цены товара после трёх последовательных повышений, если известны старая цена и процент повышения для каждого раза

мы живем в мире, в котором на нас ежедневно обрушивается огромный поток информации. объем как общих знаний о мире, так и по отдельным направлениям, специальностям возрос за последнее столетие в несколько, а то и в десятки раз. и этот объем постоянно увеличивается, пополняясь все большим количеством новой информации. часто, не умея быстро сконцентрировать свое внимание, запомнить нужное и отсеять второстепенное, мы просто «дрейфуем» в безбрежном информационном море. возможно ли нашей памятью? известно, что человек в сжатые сроки может овладеть большим объемом информации. но в обычном состоянии это сделать трудно, как и забыть избирательно какой-то факт. поэтому развитие памяти, совершенствование процессов запоминания, сохранения и воспроизведения информации являются необходимыми для человека в современном обществе. без совершенствования собственной памяти современный человек рискует отстать от динамичного развития общества, потеряться в огромном потоке информации.

на сегодняшний день в мире существует много различных методов тренировки внимания и памяти. не каждому человеку природа подарила совершенную память, способную овладеть необходимой для него информацией. безусловно, можно применять для сохранения и выборки информации всевозможные бумажные, аудио-, видео- и компьютерные носители. тем не менее, в условиях постоянно усложняющейся, обступающей со всех сторон человека среды необходимо немалое число данных сохранять в личной памяти. и не просто хранить мертвым грузом, а обладать возможностью эффективно ее использовать.

// pascalabc.net 3.3, сборка 1549 от 17.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var (i,k): =(0,-1);   foreach var r in a.rows do       if r.sum mod 3=0 then begin           k: =i; break           end       else i+=1;   if k> =0 then begin       writeln('*** матрица - результат [',n-1,',',m,'] ***');       for var r: =k to a.rowcount-2 do           a.setrow(r,a.row(r+1));       setlength(a,n-1,m);       a.println       end   else writeln('нет строк с суммой жлементов, кратной трем') end. пример количество строк в матрице: 7 количество столбцов в матрице: 8 *** исходная матрица [7,8] ***   -22  75  97  33  10 -58 -50 -11   -5  24  18 -19  -2  77 -55 -74   50  38 -94  88 -80 -76  70 -20   -53  48 -36 -92  70 -76 -14 -36   -57  30 -76  62 -75 -21    3  93   57  -7  74 -39  87 -74  65  42   94 -68  45 -61 -65 -49 -83 -46 *** матрица - результат [6,8] ***   -22  75  97  33  10 -58 -50 -11   50  38 -94  88 -80 -76  70 -20   -53  48 -36 -92  70 -76 -14 -36   -57  30 -76  62 -75 -21    3  93   57  -7  74 -39  87 -74  65  42   94 -68  45 -61 -65 -49 -83 -46