Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
zeroone01
18.09.2021 16:19 •
Информатика
Составьте программу (на языке turbo pascal) для решения следующей . в банк положена сумма 30 000 руб. под 18% годовых, и в течение 6 лет вкладчик не будет снимать деньги со счета. какая сумма окажется на счете вкладчика через 6 лет.
Показать ответ
Ответ:
Карина28022802
16.07.2020 08:27
Var
SUM: real;
P, T,i:integer;
begin
P:=18;
T:=6;
SUM:=30000;
for i:=1 to T do
SUM:=SUM+(SUM*P)/100;
writeln(SUM,' Руб');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Olesyaaaaaa1
10.01.2021 09:28
Пруд зарастает водяными лилиями. на первый день выросла одна лилия, на второй день — две лилии, на третий день — четыре лилии, на четвёртый день — восемь лилий, и так на каждый следующий...
AZAZA2008
21.02.2022 12:46
Известны длины сторон прямоугольника а,b напишите программу вычисляющую площадь прямоуголника...
Kisson
11.11.2020 17:56
написать программу на Python! Историки проанализировали множество древних текстов и выписали из них предполагаемые даты конца света, однако при переписывании ошиблись в некоторых из...
кира674
20.12.2020 05:37
Вычислить значение функции для любого значения переменной + индивидуальное с условным оператором if , , вычислить значения данных функций. для лабораторной работы, паскаль не понимаю...
Дима99999910
15.07.2020 22:44
Расположите по порядку оформление автооглавления. 1) ссылки — добавить текст, выбираем уровень оглавление — автособираемое оглавление, выделяете текст который необходимо внести в содержание...
asiraz03
04.04.2023 11:08
Https://onlinemektep.net/schedule/10.03.2021 lesson/f9a320a3-ae06-4e40-86dc-07bbf39fefc8 9е задание No22 Задание No3Датчик касанияе задание No42 Задание No52 Задание 26Гироскопический...
lina5555555
18.02.2022 06:57
Назовите всех героев из повести о настоящем ! за раннее !...
алек36
18.02.2022 06:57
1)рассчитать сколько литров кислорода, измеренного при нормальных условиях, образуется при разложении 2 моль бертолетовой соли kclo3 с образованием kcl и o2? 2)фосфор образует два...
Хрустяня
18.02.2022 06:57
Бабушка угостила девочку душистой земляникой.подчеркнуть главные члены предложения...
111122223
18.02.2022 06:57
Устепах пасуться(отари,табуни,зграї) коней.а в небі кружляють (отари,табуни,зграї) галасливих ворон...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
SUM: real;
P, T,i:integer;
begin
P:=18;
T:=6;
SUM:=30000;
for i:=1 to T do
SUM:=SUM+(SUM*P)/100;
writeln(SUM,' Руб');
end.