Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
salixova
18.06.2021 07:13 •
Информатика
СОСТАВИТЬ КОНСПЕКТ ПО ПРЕЗЕНТАЦИИ! В ЗАРАНЕЕ
👇
Увидеть ответ
Открыть все ответы
Ответ:
alinkalapko049
18.06.2021
Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.
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.
4,5
(10 оценок)
Ответ:
Хурем
18.06.2021
{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.
4,4
(19 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
19.03.2021
Как завивать ресницы: секреты красивого взгляда...
И
Искусство-и-развлечения
14.04.2020
Как танцевать дабстеп: секреты и хитрости...
К
Кулинария-и-гостеприимство
29.07.2020
Приготовление вкусного и ароматного лимонного риса в домашних условиях...
С
Стиль-и-уход-за-собой
06.06.2023
Как делать прически с крученым валиком: советы от профессионалов...
В
Взаимоотношения
12.10.2021
Как разорвать старые отношения, если у вас уже появился новый парень...
Х
Хобби-и-рукоделие
07.03.2023
Как играть в Колонизаторов...
К
Кулинария-и-гостеприимство
04.02.2023
Как приготовить фасоль пинто: пошаговый рецепт и полезные советы...
О
Образование-и-коммуникации
17.11.2022
Как стать самым уверенным учеником в школе?...
В
Взаимоотношения
05.02.2021
Как найти себе девушку в интернете: советы от экспертов...
З
Здоровье
01.02.2021
Как стать стройным естественным путем: советы от эксперта...
Новые ответы от MOGZ: Информатика
marksmanpyro
23.10.2021
Вn строках записаны данные о результатах сдачи экзаменов егэ по , языку и . каждая строка содержит фамилию, имя и три целых числа – количество , набранных участником по...
тина136
22.09.2021
33 основные этапы разработки и исследования моделей на компьютере с составлением какого нибудь объекта или чего то 1-описательная информационная модель 2-формализованная...
adimochka
27.10.2020
Напишите доклад про антивирусы кратко...
BeliyTigr115
28.03.2020
Внутреннее представление десятичного числа а в 8 разоядной ячейке памяти а=49...
TheWalkingDeadTWD
05.11.2021
Дан одномерный массив состоящий из 10 элементов.найти кол во чисел кратных 7...
MrShkololo
05.11.2021
Составь описание светофора в ввиде текста...
dilya091
21.09.2021
Дан массив целых чисел. найти сумму элементов с четными индексами...
ГеральтИзРивии999
21.09.2021
Для хранения растрового изображение размером 32×32 пикселя отвели 512 байтов памяти.каково максимальное возможное число оттенков в монохромном спектре...
DanyNeifeld
21.02.2022
Напишите программу даны 4 числа a,b,c,d.найти разность этих чисел...
Champion30
21.02.2022
50 информатика 8 класс 1)перевести в десятичную систему счисления а)172(в 8 перевести в 10 систему счислению) б)2еа(в 16 перевести в 10 ) в)101010 (в 2 перевести в 10) г)10,1...
MOGZ ответил
Найдите отношение чисел 20 до 80 ?...
Найдите среднее арифметическое чисел (устно): 1) 5 и 3; 4) 0,6 и 0,4;...
С чем связаны риски проекта. Понимание специфики риска проекта. Приведите...
Как будет расположена магнитная стрелка в опыте Эрстеда,если ее поместить:...
Вычисли площадь ромба если одна его диагональ равна 12 см, а вторая диагональ...
Разобрать словочитания (+), (-), (?). вот словочитание:We played video...
В каких предложениях допущены ошибки в написании союзов и созвучных им...
Гранатовый браслет ответьте письменно на во действительно ли в основе...
Представь квадрат двучлена в виде многочлена: (0,4x+1,1y)2....
Хотя бы три первых задания...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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.