Ответы на вопрос:
первая часть
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.
Популярно: Информатика
-
npletnikova19.06.2023 12:27
-
natalika7921.03.2021 15:50
-
limpompo211229.09.2022 03:19
-
isa222119.07.2020 18:49
-
Сахарокcom29.08.2022 11:24
-
Illya22706.01.2023 01:52
-
dhvcn22.08.2021 18:53
-
Тэт1115.12.2021 12:58
-
мaкs200524.04.2023 18:52
-
akikoaki11.03.2023 20:59