Написати програму, яка буде в одити 2 числа: a тa b, обчислювати добуток цих чисел та виводити повідомлення "Добуток чисел <a> <b> дорівнює <a> * <b> = (значення добутку?"
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.
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.
Информационный объём файла - 15Кбайт, или 15 * 1024 байт, или 15 * 2^10 байт, или 15 * 2^10 * 2^3 бит, или 15 * 2^13 бит.
Одна строка - 64 символа, или 2^6.
Рассчитаем сколько весит одна строка = вес одного символа * кол-во символов = 2^4 * 2^6 = 2^10 бит.
Найдем кол-во строк = информационный объём файла / вес одной строки = (15 * 2^13) / 2^10 = 15 * 2^(13 - 10) = 15 * 2^3 = 15 * 8 = 120 строк.
В файле 10 страниц, следовательно на одной странице 12 строк.
ответ: 12 строк.