Нужна ! решить по информатике в программе pascal. в первый месяц курс доллара составил a рублей. в каждый следующий месяц он падал на 3%. каким будет курс доллара во второй, третий, n-ный день? (цикл for) урез сколько месяцев он будет ниже b рублей? (цикл while)

164

439

Посмотреть ответы 2

Ответы на вопрос:

Direct228

Информатика

4,8(86 оценок)

первая часть

program dollar;

var dl: real; mn: integer;

function cd(a: real; m: integer): real; - функция вычисления курса доллара a на указаный месяц m

var i: integer;

if a> 0 then for i: =1 to m do a: =a*0.97;

cd: =a;

end;

begin

writeln('введите начальный курс доллара');

readln(dl);

writeln('введите число месяцев');

readln(mn);

write('курс будет равен');

writeln(cd(dl,mn));

end.

Foxsi2007

Информатика

4,4(97 оценок)

1) 36 = 3q + 6 21 = 2q + 1 15 = q + 5 3q + 6 = (2q + 1) + (q + 5) = 3q + 6 - тождество! тогда такое равенство можно записать в любой системе счисления, в которой есть цифра 6, т.е. основание системы счисления q > =7