Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
edgarotlichnik55
25.05.2023 05:52 •
Информатика
По коду программы определи, что будет выведено на экран *
Подпись отсутствует
99
9
11
20
Показать ответ
Ответ:
7777kby777777777778
08.06.2023 07:43
{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.
0,0
(0 оценок)
Ответ:
McКлей
08.06.2023 07:43
Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
JahKhalib228
04.06.2021 04:07
Поясните разницу между технической моделью самолета и информационной моделью самолета(чертежом)...
nlikachev
01.03.2020 00:37
Жители планеты принтер используют алфавит из 256знаков ,а жители планеты плоттер из 128 знакров для жителей какой планеты сообщение из 10 знаков несет больше информации и на...
Чекушка220
13.07.2022 09:46
Представьте заданные числа в двоично-десятичном коде.Выполните над этими числами операции сложения и вычитания. Результат вычислений переведите в десятичную систему счисления.Числа...
Islikzaziy
03.12.2020 13:33
Почему консольный интерфейс предпочтительнее для ОС, предназначенных для управления сетями (Windows Server)?? Дайте развернутый ответ...
alex2002fedorov
04.08.2022 04:16
Сравни исходную 3D-модель с измененной и определи действия, которые были выполнены в 3D-редакторе. Исходная модельИзмененная модельВерных ответов: 2копирование объектасмещение...
svensyea
26.04.2023 03:08
Https://psv4.userapi.com/c856232/u211981193/docs/d7/fa94e21f54a2/Bezymyanny.png?extra=Ulm73HZtFB6Pg5FZawGdQLP8owQ88WOSPlZejPYGWgwVzHh2tIdIA4YHIeVW4WGAEU8Ky4eRni2bgTcTm0vak_r97WF13VCfFPrmy5V79TqWGxtnApFj9fVRcH_fbUocJjE9iA0PAe3mPiUu-11BDTyk5A...
Alena18091
23.01.2020 16:18
Установите соответствие вида программного обеспечения и программ. A Системное ПО B Прикладное ПО C Системы программирования 1 Текстовый редактор Word 2 Python 3 Антивирус Касперского...
фскорбин
26.03.2023 17:20
Найдите длину вектора c=2a-b если a ( 6; 2; 1) и b(0;-1; 2)...
КИРА28012007
01.04.2022 17:48
1. Які рядки джерела № 2 свідчать про готовність царя розпочати переговори та прийти на до гетьманові у війні з поляками?...
eklolosmile
22.05.2023 00:07
Как повлияло «закрытие» Китая и Японии на экономическое развитие этих стран? (Сравнить с Англией в Новое время. Чего лишились Япония и Китай, закрыв свои границы?)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.