Информатика, область применения датчика цвета.

а где взялся пасажирский поезд? о.о

если имеется в виду "грузовой состав ( тепловоз и 7 цистерн)", то так:

1) 1тепловоз отцепляет свои 2 вагона

2) 1тепловоз заезжает с 1 вагоном в тупик

3) оставшиеся вагоны 2тепловоз толкает вперед, давая 1тепловозу выехать позади него

4) 2тепловоз сдает назад, завозит 2 вагона в тупик и едет вперед

5) 1тепловоз возвращается и забирает 2 вагона

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.