Ответы на вопрос:
извини что не правильный ответ, но зайди в фотошоп и там есть режим нахождение шрифта с текста
первая часть
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.
Популярно: Информатика
-
Sinderella200618.11.2022 21:37
-
AliKsandraSm26.03.2022 02:51
-
лалвллв30.03.2022 17:44
-
milenaborowik22.03.2022 18:12
-
shahnozat0224.05.2023 21:28
-
69supreme31.01.2022 08:22
-
stasshishakozo53x09.10.2020 21:38
-
elmirayanbukov17.06.2022 03:49
-
YDA200725.10.2020 13:59
-
bili090908.02.2023 10:25