Ответы на вопрос:
{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.
Популярно: Информатика
-
amelisova0609.01.2023 11:19
-
Golinskaya2002a19.02.2020 19:12
-
НаsтяПоможет77719.02.2023 07:57
-
AREN1208200327.08.2022 10:30
-
nastyagru114.03.2023 13:13
-
Мрорпа02.10.2020 03:27
-
EgaBelyaev02.08.2020 20:30
-
idknotforlong26.10.2022 11:55
-
zeus33319.04.2023 20:17
-
sofiazahhа07.05.2022 19:16