Регистрация
doc9w
16.01.2021 09:09
Информатика
Есть ответ 👍

Желательно решение на листике)) на заводе имеется 120 тонн дрожжевой массы.ежедневно она увеличивается на p%, а на хозяйственные нужды расходуется х тонн. сколько дрожжевой массы будет на заводе через т дней?

123
386
Посмотреть ответы 3

Ответы на вопрос:

GNRK
GNRK
4,4(36 оценок)
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
saxarowaulia
saxarowaulia
4,7(28 оценок)
Алистик тебе почтой россии выслать или через знакомых передать? в можно вывести формулу, но мне лень, сделаем через цикл. отдел +; использует вывод из "", приём из ""; пер   дрожжи, процент, расход, дней: вещ;   сч: цел; указ   дрожжи : = 120;   вывод.цепь("p: "); процент : = приём.число();   вывод.цепь("tx: "); расход : = приём.число();   вывод.цепь("tt: "); дней : = приём.число();   от сч : = 1 до дней вып     дрожжи : = дрожжи + дрожжи * (процент / 100) - расход   кон;   вывод.чвещ("^%g", дрожжи, 0, 0, 0) кон .
Лях1
Лях1
4,7(22 оценок)

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

const

Rom:array[1..9] of string[2] =('I','IV','V','IX','X','XL','L','XC','C');

Arb:array[1..9] of integer =(1,4,5,9,10,40,50,90,100);

var rm: string;

ar,i:integer;

begin

clrscr;

repeat

write('Введите натуральное число от 1 до 100 ar=');

readln(ar);

until ar in [1..100];

rm:='';

for i:=9 downto 1 do

while (ar>=Arb[i]) do

begin

ar:=ar-Arb[i];

rm:=rm+Rom[i];

Популярно: Информатика