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

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

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

Задать свой вопрос
1 ответ
Var r,w,s:integer;
begin
writeln('Введите начальные данные:');
write('Величина вклада (руб.): ');
readln(r);
write('Ежемесячная величина заработка (руб) ');
readln(w);
s:=r+3*w;
write('Сумма вклада по окончании 3-х месяцев: ',s,' руб.');
s:=r+6*w;
write('Сумма вклада по окончании 6 месяцев: ',s,' руб.');
s:=r+12*w;
write('Сумма вклада по окончании года: ',s,' руб.');
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт