Решите задачу с цикла repeat и цикла

программа на паскале:

program xxx;

      var a, b: real;

begin

  writeln('введите количество миль');

  readln(a);

  b: = a*1.6;

  writeln('кол-во киллометров - ',b)

end.

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.

f0=(15*16в1)+(0*16в0)=240 , делим столбиком число 240 на 2 (делим и делим) и записываем остатки с конца и получаем число 11110000

т.е.  240/20=120    ост  0

120/2=60    ост  0

60/2=30   ост  0

30/2=15  ост  0

15/2=7   ост  1

7/2=3   ост  1

3/2=1   ост  1

записываем в обратном поряде    11110000

1d4=(1*16в2)+(13*16в1)+(4*16в0)=256+208+4=468  делим столбиком число 468 на 2         111010100

паровозы кажется могут толкать состав назад, ехать как задом так и передом и тп. иначе я не знаю.

первый поезд делится на (паровоз+10) и 11 вагонов.

и эту десятку паровоз тянет в тупичек.

второй поезд проезжает тупичек.

паровоз первого вытягивает свою десятку на свободный путь

второй паровоз толкает свой состав так чтоб стать перед тупичком

второй паровоз отцепляется и прицепляется к оставшимся 11 вагонам.

второй паровоз задом запихивает 11 вагонов в тупичек

второй паровоз берет свой состав и уезжает

первый паровоз забирает свои 11 вагонов