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

181

449

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

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

владислав186

Информатика

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

первая часть

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.

родтчса

Информатика

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

program twonumbers;

var a,b: integer;

begin

readln(a,b);

if a> b then writeln(a+b);

if a< b then writeln(b-a);

if a=b then writeln(a*b)

end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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