Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
akmsulu
25.05.2022 13:20 •
Информатика
Желательно решение на листике)) на заводе имеется 120 тонн дрожжевой массы.ежедневно она увеличивается на p%, а на хозяйственные нужды расходуется х тонн. сколько дрожжевой массы будет на заводе через т дней?
Показать ответ
Ответ:
Умка2804
07.10.2020 14:00
Var d,p,x:real; t,i:integer;
begin
d:=120;
readln(p,x,t);
for i:=1 to t do d:=d+d*p/100-x;
writeln('d = ',d:5:2);
end.
Пример:
10 15 5
d = 101.68
0,0
(0 оценок)
Ответ:
Perestroika
07.10.2020 14:00
А листик тебе Почтой России выслать или через знакомых передать? В задачке можно вывести формулу, но мне лень, сделаем через цикл.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
дрожжи, процент, расход, дней: ВЕЩ;
сч: ЦЕЛ;
УКАЗ
дрожжи := 120;
Вывод.Цепь("p: "); процент := Приём.Число();
Вывод.Цепь("Tx: "); расход := Приём.Число();
Вывод.Цепь("Tt: "); дней := Приём.Число();
ОТ сч := 1 ДО дней ВЫП
дрожжи := дрожжи + дрожжи * (процент / 100) - расход
КОН;
Вывод.ЧВещ("^%g", дрожжи, 0, 0, 0)
КОН Задание.
0,0
(0 оценок)
Популярные вопросы: Информатика
alisher0901
31.10.2021 04:56
1. укажите лишнее: a) собака.doc b) дом.bmp c) уроки.txt d) каникулы.rtf 2. укажите графический файл: a) зима.wav b) весна.doc c) лето.jpg d) осень.mid...
dasha89011
09.10.2021 20:06
Для представления числовых данных используют 32-ичный алфавит, включающий знаки действий. сколько байтов информации содержит выражение 5*5=25?...
beksedaniar
29.08.2022 01:06
Даны натуральное число n, действительные числа . в этой последовательности заменить все элементы меньше 2, нулем. кроме того, получить сумму элементов принадлежащих отрезку [3,7]...
agroDan
15.06.2020 06:09
Дан целочисленный массив , элементы которого неотрицательны. необходимо заполнить таблицу действительных чисел , i-ый элемент которой равен среднему арифметическому первых i элементов...
плаг
11.04.2020 21:25
На программной ленте могут быть напечатаны цифры. над лентой находится некий исполнитель, который может выполнять 2 команды: ( ) — передвинуться на одну цифру влево; (+) — изменить...
yuliam2015
25.04.2020 15:03
Даны слова кран и сера. если из каждого слова отнять по одной букве, то из оставшихся букв можно составить слово, обозначающее устройство для ввода информации....
nikneem159
19.06.2020 22:44
Определите объем текста, если для его записи использованы буквы алфавита строчные и заглавные, десять цифр и пробел. причем каждый символ весит одинаковое целое число бит и в тексте...
anative
13.04.2023 16:07
Ли генетическим кодом растения,животные,человек?...
сумбэльсофаникита
27.07.2021 21:38
На диске свободно 16 кбайт памяти. сколько страниц войдет на диск если каждая страница состоит из 32 строк по 40 символов...
slava4В
27.07.2021 21:38
Вычислите значение 58-abs(sqrt(18 div 3+43)-sqr(5 mod 16))...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
d:=120;
readln(p,x,t);
for i:=1 to t do d:=d+d*p/100-x;
writeln('d = ',d:5:2);
end.
Пример:
10 15 5
d = 101.68
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
дрожжи, процент, расход, дней: ВЕЩ;
сч: ЦЕЛ;
УКАЗ
дрожжи := 120;
Вывод.Цепь("p: "); процент := Приём.Число();
Вывод.Цепь("Tx: "); расход := Приём.Число();
Вывод.Цепь("Tt: "); дней := Приём.Число();
ОТ сч := 1 ДО дней ВЫП
дрожжи := дрожжи + дрожжи * (процент / 100) - расход
КОН;
Вывод.ЧВещ("^%g", дрожжи, 0, 0, 0)
КОН Задание.