Глеб любит играть в настолки. Но еще больше Глеб любит их придумывать. В очередной раз он предложил опробовать его новое творение. На этот раз игра предназначена для одного человека. В начале вам выдается 6 карточек с цифрами от 1 до 6 (каждая цифра встречается ровно один раз). Затем в каждый свой ход вы можете заменить ровно 2 свои карточки на «соседние» по номиналу. То есть карточку с цифрой 2 можно заменить на карточку с цифрой 1 или 3, карточку с цифрой 3 — на 2 или 4. Причем карточку с цифрой 1 можно поменять не только на 2, но и на 6. А карточку с цифрой 6 можно заменить на карточку с цифрой 1 или 5.
Цель игры — получить 6 карточек с одинаковыми цифрами. Выясните, получится ли у вас выиграть и, если получится, предъявите последовательность ходов.
var p,i,x,count: integer;
begin
count := 0;
p := 0 ;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(х );
writeln(p);
end
else
writeln('NO')
end
Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицуВ конце выводится последнее введённое число, а нужно вывести количествоПосле end не стоит точкаПравильный вариант программыvar p,i,x,count: integer;
begin
count := 0;
p := 1;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(count);
writeln(p);
end
else
writeln('NO')
end.