Определить значение переменной N после выполнения фрагмента алгоритма
N=45 R=11

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

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

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

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

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

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

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

все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);