Решить в Pascal АBC!!! Составить программку, решающую следующую задачку: Клиент занес в

Решить в Pascal АBC!!!
Составить программку, решающую последующую задачку: Клиент занес в банк R рублей. Каждый месяц эта сумма возрастает на W рублей. Сколько будет у клиента средств через три месяца, через полгода, через год? Ниже представлен рекомендуемый вид экрана во время работы программки:

Введите исходные данные:
Величина вклада (руб.): 10000
Ежемесячная величина заработка (руб) 165
Сумма вклада по окончании 3-х месяцев: 10495 руб.
Сумма вклада по окончании 6 месяцев: 10990 руб.
Сумма вклада по окончании года: 11980 руб.

Задать свой вопрос
1 ответ
Код в комменты ниже
Инна Парбукова
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт