tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Какова будет высота растения
Какова будет высота растения через х месяцев (6), если за месяц прирост составляет а% (5%). начальный рост – у см (20) . решение по турбо паскалю.
Like2942
3 23.06.2019 01:10
2
Ответы
Dyrochka22
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
supermichail29
16.03.2021 11:25
Чтобы начертить прямую линию, в редакторе костюмов Scratch нужен инструмент Линия. Какую клавишу при этом необходимо зажать, чтобы линия получилась строго вертикальная? даю...
Horse3333
16.03.2021 11:25
Хочу купить ПК (компьютер) на 100к₽ посоветуйте :)...
maksimstelmach
16.03.2021 11:24
Кто то уже сколько раз задаю этот вопрос это задания по информатике...
суперкотик4
16.03.2021 11:24
Установить сайт на termux (кто не правильно ответит кидаю в спам).....
gax17003
23.01.2020 10:26
(avb) vc=av(bvc) таблица истиностейлюди, я вас нужно ...
LuсКу
10.08.2019 12:20
Информатика 9 класс 50 написать программу в abcпаскаль которая вычислит сумму цифр пятизначного числа и определит находится ли эта сумма в диапазоне от 20 до 25 включительно(...
dniill
08.10.2021 01:29
Замените знаки вопроса числами 18 байт = ? 2. ?Кбайт = 28672 байт = ?бит3. 8,5 Кбайт = ?байт = ?бит...
supanzerbe
08.10.2021 01:25
минимать трек вопрос: Структура программы Каким может быть идентификатор языка программирования Паскаль (название программы, имя константы, переменной)? Зачеркни неверные...
Ларибум
08.10.2021 01:15
Как вы думаете, почему единицы измерения количества ин формации, принятые МЭК, не прижились?...
zeroone01
08.10.2021 01:14
Замените знаки вопроса числами: 1) ?Кбайт = ?байт = 110592 бита2) 21Мбайт = ?Кбайт =? байт3) Гбайт = ?Мбайт = ?Кбайт4) 82byte = ?bit5) ?byte = 7992 bit...
Популярные вопросы
Соня и лиза собирали в лесу землянику. когда они принесли её домой и взвесели...
2
Вычислить массовую долю железа в магнитном железняке...
1
Найдите угловой коэффициент касательной к графику функции: у=2х^2-12х+20...
1
Смешали 2 литра воды температурой 50 градусов и 2 литра воды температурой...
2
Найдите значение выражения 4-0,01*(26,6/19) решение 5 класса кто знает...
1
На узліссі метушилося 6384 комахи, скільки окремо там було мурашок, коників...
3
Виталию поехала группа туристов из 100 человек . 10 из них не знали ни...
2
15. заполните пропуски, используя относительные местоимения who(whom)/that/which:...
1
Быть понятым это счастье. где тут нужны знаки препинания?...
3
Водном бидоне было в четыре раза больше молока,чем в другом. когда из первого...
3
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.