Var i,x,a,b,c,d,count:integer;
begin
count:=0;
for i:=1000 to 9999 do begin
a:=i div 1000;
b:=(i div 100) mod 10;
c:=(i mod 100) div 10;
d:=i mod 10;
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then
if (a>b) and (b>c) and (c>d) then begin
count:=count+1;
write(i,' ');
end;
end;
writeln;
writeln('Количество: ',count);
<span>end.</span>
В 1 коробке ( с ленточкой ) есть кукла , во второй нет открытки
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
Если это задание для Кумира, то вот нужный алгоритм:
использовать Робот
алг
нач
цел п
нц пока снизу свободно
вниз
кц
нц для п от 0 до 1
нц пока снизу стена
закрасить
влево
кц
нц пока снизу свободно и п=0
влево
кц
кц
вниз
нц для п от 0 до 2
нц пока сверху свободно и п<2
вправо
кц
нц пока сверху стена
закрасить
вправо
кц
кц
кон