В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
tyzigfr
tyzigfr
14.07.2022 14:44 •  Информатика

Средняя заработная плата в январе составила z руб., а стоимость потребительской корзины—к руб. предполагается, что ежемесячный рост заработной платы составит р%, а потребительской корзины q%. последовательно выводить прогнозируемую разность между средней заработной платой и стоимостью потребительской корзины в феврале—декабре. вычисления прекратить, если разность станет отрицательной. на паскале

Показать ответ
Ответ:
nataliinfp0co9o
nataliinfp0co9o
15.07.2020 13:12
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
END.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота