Представь себе одну колею. Посредине отходит тупик на 11 вагонов. По краям два поезда. 1) Левый проезжает вперед и задком заходит в тупик, оставляя там 11 вагонов. Потом выезжает и возвращается на место - влево. 2) Правый подъезжает к вагонам и прицепляет к себе спереди паровоза (у паровоза "зад - перед" одно и то же) и оттаскивает на место вправо. 3) Левый опять протягивает вперед и задком полностью заезжает в тупик. 4) Правый двигается по колее, занимая место слева. Он теперь левый. 5) Левый выезжает и занимает место справа. Он теперь правый. 6) Левый протягивает назад и заталкивает в тупик 11 вагонов не своих. Выезжает обратно. 7) Правый подцепляет свои вагоны и каждый едет дальше!
Все это справедливо, если в тупик можно заехать с правой стороны. Если с левой - картина меняется на зеркальную.
1) var n,z:integer; begin z:=0;//z=:0 знак присваивания выглядит вот так ":=" //n=:100 - не нужно иницилизировать параметр цикла. for n:= 200 to 500 do begin//for n:=100 to 1000 do begin - цикл должен идти от 200 до 500, а не со 100 до 1000 if n mod 14 = 0 then //if (n div 14 =0) then - div - Целая часть от деления, а mod - остаток. z:=z+1;//writeln(n); - Выводить n не нужно совсем, а вот увеличить счетчик не помешает //z:=z+1;- а вот тут уже лишнее end; writeln(z); end.
2) -73, выполнится 15 - 8 + 1 = 8 раз
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
