Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
nusaba55
04.07.2020 05:58 •
Информатика
Сбербанк начисляет 7% годовых. какой станет сумма k руб., положенная в банк на n лет. pascal.
Ответ:
БУЛИЧКА23
03.10.2020 00:53
//Pascal ABC.NET 3.2 сборка 1318
Var
k:real;
i,n:integer;
begin
readln(k);
readln(n);
for i:=1 to n do
k*=1.07;
writeln(k);
end.
Пример ввода:
100
2
Пример вывода:
114.49
0,0
(0 оценок)
Популярные вопросы: Информатика
Rednegel
09.09.2021 22:42
Директер типтерин аныктаныз...
midman
14.02.2021 13:37
Черно-белое (без градаций серого) графическое изображение имеет размер 23×23 точек. Какой объём памяти займёт это изображение?...
Лдаслл183
05.02.2022 06:25
Вычислите значение переменной x после выполнения фрагмента программы на языке программирования turbo pascal: a : = 4; b : = 1; c : = 8; if (a c) and (c b) then x...
SHIRINA11
05.02.2022 06:25
Можно ли наглядно представить числовые данные...
Вано137
05.02.2022 06:25
Вбиометрической системе аунтификации человека,помимо отпечатков пальцев ,в качестве уникального идентификатора можно а)рисунок радужной оболочки глаза б)отношение...
darkmusson
28.08.2022 17:40
Выберите наибольшее значение. а) 1 килобайт б) 2000 бит в) 200 байт г) 1 килобайт...
ангел809
28.08.2022 17:40
Определите, что будет выведено на экран после выполнения фрагмента программы на языке программирования turbo pascal: x : = 20; y : = 0; while x 0 do begin x : = x...
artem2006voskanyan
06.03.2020 08:12
Дано 4 числа найти сумму чисел, извлечь количество сотен, если четное, то найти среднее этих чисел, а , если нет, то произведение...
нин1231
14.08.2020 20:57
1-1 2-2 3-0 4-1 20-2 21-0 правило преобразования...
olgaalehina
14.08.2020 20:57
По какому правилу числа следуют друг за другом исправь ошибки 2,12,13,23,24,35,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Var
k:real;
i,n:integer;
begin
readln(k);
readln(n);
for i:=1 to n do
k*=1.07;
writeln(k);
end.
Пример ввода:
100
2
Пример вывода:
114.49