Средняя заработная плата в январе составила Z руб., а стоимость потребительской корзины—К руб. Предполагается, что ежемесячный р
ост заработной платы составит р%, а потребительской корзины q%. Последовательно выводить прогнозируемую разность между средней заработной платой и стоимостью потребительской корзины в феврале—декабре. Вычисления досрочно прекратить, если разность станет отрицательной. на паскале
Program prognoz; var Z, K, p, q: real; M: Integer; BEGIN Write('Введите среднюю зарплату в январе Z = '); ReadLn(Z); Write('Введите среднюю потреб.корзину в январе K = '); ReadLn(K); Write('Введите предполагаемый ежемесячный рост зарплаты в % p = '); ReadLn(p); Write('Введите предполагаемый ежемесячный рост потреб.корзины в % q = '); ReadLn(q); M := 2; Z := Z*(1+p/100); K := K*(1+q/100); while (Z >= K) AND (M < 13) do begin WriteLn('Прогноз разности зарплаты и потреб.корзины в ', M:2, '-й месяц:', (Z-K):10:2, ' руб.'); Inc(M); Z := Z*(1+p/100); К := K*(1+q/100); end <span>END.</span>