Как агент откроет сейф

[ринат Д]

Чтобы открыть секретный сейф, агент 007 должен в возрастающем порядке набирать все трехзначные числа, в записи которых нет одинаковых цифр. Составить программу,на паскале, которая бы печатала для агента на экране такие числа, а также определить, сколько времени потребуется ему для вскрытия сейфа, если на набор одного числа он тратит t секунд.

[Serge_Bliznykov]

Readln(t);
k:=0;
for i:=100 to 999 do begin
  d1 := i div 100;
  d2 := (i mod 100) div 10;
  d3 := i mod 10;
  if d1<>d2 and d2<>d3 and d1<>d3 then begin
    WriteLn(i);
    k:=k+1;
  end;
end;
WriteLn('Агенту потребуется ',k*t,' секунд в худшем случае.');

[ринат Д]

Спасибо Серега за тот

[evg_m]

col:=0; // сколько времени потребуется ему для вскрытия сейфа
for i1:=1 to 9 do
  for i2:=0 to 9 do
    if i2<>i1 then begin
      for j3:=0 to 9 do
        if (i1<>i3) and (i2<>i3) then begin
          n:=i1*100+i2*10+i3; 
          col:=col+1;
          writelm(n);
        end;
    end;
writeln(col); //сколько времени потребуется ему для вскрытия сейфа

[archh]

Здравствуйте, вы бы не могли написать это на питоне?

[Вадим Мошев]

archh, создайте новую тему, а не лезьте в старую чужую.