Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
halilappazov
09.06.2022 16:43 •
Информатика
КУМИР заменИТе первый симво строки на ноль
умаляю
👇
Увидеть ответ
Открыть все ответы
Ответ:
alinkalapko049
09.06.2022
Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.
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 оценок)
Ответ:
Хурем
09.06.2022
{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 оценок)
Это интересно:
О
Образование-и-коммуникации
22.08.2020
Как написать миф: вдохновляющая сила древних легенд...
В
Взаимоотношения
26.10.2021
Мы все должны уважать и почитать своих родителей. Но как это сделать?...
К
Компьютеры-и-электроника
14.05.2023
Как создать свою видеоигру с нуля: от идеи до релиза...
31.05.2021
Как перестать бояться быть счастливым: 7 советов для изменения мышления...
16.02.2023
Как расширить границы разума: несколько простых способов...
С
Стиль-и-уход-за-собой
18.02.2021
Как избавиться от темных кругов под глазами: советы от экспертов...
С
Стиль-и-уход-за-собой
26.01.2020
Как отчистить сандалии Rainbow...
С
Стиль-и-уход-за-собой
28.02.2021
Как завивать волосы в кудри: простые шаги и полезные советы...
Д
Дом-и-сад
08.06.2022
Как почистить LEGO: простые способы, которые помогут сохранить блестящую внешность игрушек...
Т
Транспорт
18.02.2022
Как диагностировать автомобильную помпу...
Новые ответы от MOGZ: Информатика
Sayva11
22.01.2023
Согласно индивидуальному варианту составить структурные схемы алгоритмов. 2. Даны целое положительное число n и вещественное x. Вычислить y=x(х+1)(х+2)…(х+n). 4. Дан массив...
dashasuslova007
03.05.2020
Определите результат применения формулы =МАКС(В5:В8) к данным таблицы на рисунке *...
student130
13.09.2021
очень Расмотрите электронную таблицу...
Дарья4311
10.04.2021
Это кроссворд по информатике вопрос : процесс создания и использования модели что это...
vanyura
10.04.2021
Решить с паскаля: 1. в массиве все отрицательные элементы переместить в начало массива, а остальные в конец с сохранением порядка следования. 2. дана последовательность целых...
kfisatidi
10.04.2021
Скорость передачи данных через модемное соединение равна 4096 бит/с. передача текстового файла через это соединение заняла 10 с. определите, сколько символов содержал переданный...
vlad97vb
05.04.2020
Работа с файлами. Урок 2 Верных ответов: 2 n.readline(1) x.readline(2) m.readline(3) This is line1. This is line2. This is line3. это...
olya0611
16.05.2022
расположи в правильном порядке код...
snoopfray
16.11.2020
«А»: Найти сумму чисел от 1 до 1000....
papka89
13.05.2023
Получите 2 варианта представления отрицательного десятичного числа - 5: в формате с фиксированной запятой и формате с плавающей запятой в четырехбайтовой ячейке...
MOGZ ответил
Упоясніть чому пустелі і напівпустелі євразії займають здебільшого центральні...
Составить энциклопедическую статью про слово ветеррассказать о природе(что...
(вствьте пропущенные буквы и знаки припинания, объяснить орфограммы) у дач..ного(3)...
1. представьте, что вашей семье необходимо выкопать на даче или в деревне...
Обыкновенные дроби десятичные дроби проценты 0,84 75% 13/25...
Те нужно твір ,,війна.доля,,зможете кто нибуть...
Скиньте ссылку на тест гришина 5 класс 2часть или скажите там 12 тест 1вариант...
Молнии ярко осветили весь двор и гром прогрохотал уже над головой. синтаксический...
Диаметр земного шара примерно равен 1,2 x 10^7 м, диаметр молекулы водорода...
Read the dialogue again. what is rita s problem? what is diana s advice?...
Полный доступ к 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.