сервис вопросов и ответовСРОЧНО НУЖНА ПОМОЩЬ! Решить задачу по информатике в программе Pascal.
5-9 класс|
|
В первый месяц курс доллара составил a рублей. В каждый следующий месяц он падал на 3%. Каким будет курс доллара во второй, третий, четвертый... N-ный день? (Цикл for)
Урез сколько месяцев он будет ниже b рублей? (Цикл while)
Shokina00
31 июля 2016 г., 14:43:14 (7 лет назад)
даня567
31 июля 2016 г., 16:33:51 (7 лет назад)
Первая часть задания
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.
Ответить
Другие вопросы из категории
Читайте также
Вася, Илья, Коля, Никита и Петя решали задачи по информатике. Всего было 5 задач. Кто сколько задач решил, если известно, что: Вася и Коля решали все
задачи вместе; Петя решил на 2 задачи больше, чем Вася; Илья решил меньше задач, чем Коля; Никита решил больше задач, чем Илья, но меньше, чем Вася; каждый решил хотя бы по одной задаче.
Пожалуйста помогите решить задачу по информатике!
Задача: Две
хозяйки купили 8 литров молока. У одной 5 литров в 6- литровом бидоне, у
другой 3 литра в 5 - литровом бидоне. Они решили разделить всё молоко
поровну, по 4 литра, пользуясь ещё одним, 2 - литровом бидоном. Как это
сделать?
Вы находитесь на странице вопроса "СРОЧНО НУЖНА ПОМОЩЬ! Решить задачу по информатике в программе Pascal.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.