Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ElectricCat
12.12.2021 04:38 •
Информатика
Какова будет высота растения через х месяцев (6), если за месяц прирост составляет а% (5%). начальный рост – у см (20) . решение по турбо паскалю.
Показать ответ
Ответ:
Маруся200117
02.10.2020 09:02
Var
A,ae:real;
N,i:integer;
Begin
WriteLn('Введи начальный рост');
ReadLn(A);
WriteLn('Введи кол-во месяцев');
ReadLn(N);
WriteLn('Введи прирост в месац в %');
ReadLn(ae);
ae:=ae/100;
For i:= 1 to N do
A:=A*(1+ae);
WriteLn(A);
ReadLn
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
gmailua
07.08.2021 04:17
РЕШИТЕ ЗАДАЧУ ПО ИНФОРМАТИКЕ!! Дано:Скорость= 128000б/сI=375к/бНайти: t=?...
annaoroku3
21.05.2023 10:34
В таблице БД три столбца: Фамилия , Имя , Отчество . Записаны 200 человек. Сколько полей и записей в таблице...
Хрусть
26.05.2020 18:37
Для решения этой задачи Вам необходимо написать программу на одном из языков программирования.Школьники Ваня и Паша занимаются в кружке робототехники. На одном из занятий...
ksuynya2007
22.12.2021 16:13
Задача: определить какова длина машинной команды (в битах), если размер адресуемой памяти составляет 1 Гбайт, а число машинных команд не превышает 150, процессор - трехадресный...
MarikMansurov
29.10.2020 02:38
Упорядочить каждую строку матрицы по возрастанию и удалить последний столбец. Массив размером МхN, элементы которого задаются датчиком случайных чисел на интервале [-7;26]....
pbavaМАНЯ
08.08.2021 21:54
Здравствуйте Задание 9! с точными объяснениями!)...
assija56
09.04.2020 04:01
1. Получить численное решение уравнения Мальтуса с шагом 0.1 мс методом Эйлера. Вывести табличные значения, построить график изменения численности популяции во времени....
Qweryuibcdd
21.12.2021 22:14
С Дельта – кода Элиаса зашифровать числа. Найти: L, M, M-1, Результат....
УмничкаХороша
27.01.2020 11:02
Файл размером 8 мбайт передали за 512 секунд. определите размер файла (в кбайт), передаваемого через это же соединение, если время его передачи составило 128 секунд....
Rayanna1
05.12.2021 17:06
Экстренно! кумир, информатика. алгоритм....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,ae:real;
N,i:integer;
Begin
WriteLn('Введи начальный рост');
ReadLn(A);
WriteLn('Введи кол-во месяцев');
ReadLn(N);
WriteLn('Введи прирост в месац в %');
ReadLn(ae);
ae:=ae/100;
For i:= 1 to N do
A:=A*(1+ae);
WriteLn(A);
ReadLn
End.