Составить программу (Turbo Pascal) вычисления величины дохода по вкладу. Процентная ставка (в процентах годовых) и время хранения (в днях) задаются во время работы программы. Ниже представлен рекомендуемый вид диалога во время работы программы. Данные, вводимые пользователем, выделены жирным шрифтом.

Величина вклада (р.) - 25000

Срок вклада (дней) - 30

Годовая процентная ставка (%) - 12

Доход: 252 р. 80 коп.

Сумма по окончании срока вклада: 25252 р. 80 коп.

{pascal, консольный ввод}

var

velichina_vklada, srok_vklada, godovaya_procentnaya_stavka: integer;

vklad_s_procentami: real;

vklad_s_procentami_rub, vklad_s_procentami_kop: integer;

dohod_rub, dohod_kop: integer;

begin

write ('Величина вклада (р.) - ') ;

readln () ;

write ('Срок вклада (дней) - ') ;

readln (srok_vklada) ;

write ('Годовая процентная ставка (%) - ') ;

readln (godovaya_procentnaya_stavka) ;

vklad_s_procentami : = velichina_vklada * ((real (100) + real (godovaya_procentnaya_stavka) * real (srok_vklada) / 365) / 100) ;

dohod_rub : = (velichina_vklada - integer (vklad_s_procentami)) ;

dohod_kop : = (velichina_vklada*100 - integer (vklad_s_procentami*100)) mod 100;

vklad_s_procentami_rub : = integer (vklad_s_procentami) ;

vklad_s_procentami_kop : = integer ((vklad_s_procentami*100)) mod 100;

writeln ('Доход: ', dohod_rub,' р. ', dohod_kop, ' 80 коп.') ;

writeln ('Сумма по окончании срока вклада: ', vklad_s_procentami_rub, ' р. ', vklad_s_procentami_kop, ' коп.') ;

end.

Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.

var

vklad, dohod, summa, stavka: real;

srok: integer;

begin

write ('Величина вклада (р.) - ') ;

readln (vklad) ;

write ('Срок вклада (дней) - ') ;

readln (srok) ;

write ('Годовая процентная ставка (%) - ') ;

readln (stavka) ;

dohod : = (vklad*stavka) / (100*365) * srok;

summa : = vklad + dohod;

writeln ('Доход: ', Trunc (dohod), ' р.', frac (dohod) * 100:3:0, ' коп.') ;

writeln ('Сумма по окончании срока вклада: ', Trunc (summa), ' р.', Frac (summa) * 100:3:0, ' коп.') ;

end.