Предмет: Информатика,
автор: ekimova200050
Решить в Pascal АBC!!!
Составить программу, решающую следующую задачу: Клиент внес в банк R рублей. Каждый месяц эта сумма увеличивается на W рублей. Сколько будет у клиента денег через три месяца, через полгода, через год? Ниже представлен рекомендуемый вид экрана во время работы программы:
Введите исходные данные:
Величина вклада (руб.): 10000
Ежемесячная величина дохода (руб) 165
Сумма вклада по окончании трех месяцев: 10495 руб.
Сумма вклада по окончании шести месяцев: 10990 руб.
Сумма вклада по окончании года: 11980 руб.
Ответы
Автор ответа:
0
Код в комментарии ниже
Автор ответа:
0
program bank;
uses crt;
var bamount, bdays, bpercent, bprofit: real;
BEGIN
writeln('Введите исходные данные:');
write('Величина вклада (руб.): ');
readln(bamount);
write('Срок вклада (дней): ');
readln(bdays);
write('Процентная ставка (годовых): ');
readln(bpercent);
bprofit:=bamount/100*(bpercent*bdays/365);
writeln('Доход: ', bprofit:1:2, 'руб.');
writeln('Сумма по окончанию срока вклада: ',
(bprofit+bamount):1:2, 'руб');
readkey()
END.
uses crt;
var bamount, bdays, bpercent, bprofit: real;
BEGIN
writeln('Введите исходные данные:');
write('Величина вклада (руб.): ');
readln(bamount);
write('Срок вклада (дней): ');
readln(bdays);
write('Процентная ставка (годовых): ');
readln(bpercent);
bprofit:=bamount/100*(bpercent*bdays/365);
writeln('Доход: ', bprofit:1:2, 'руб.');
writeln('Сумма по окончанию срока вклада: ',
(bprofit+bamount):1:2, 'руб');
readkey()
END.
Похожие вопросы
Предмет: География,
автор: Sufi21
Предмет: Русский язык,
автор: ershovarhip08
Предмет: Английский язык,
автор: rikardomilos2281337
Предмет: Математика,
автор: 6499
Предмет: Математика,
автор: Кристина898098