Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
числа с несовпадающими цифрами
//fpc 3.0.0 program HelloWorld; const n = 7; var i, j, k , fl, count : int64; m : array [1..n] of integer; begin count := 0; for i := 1111111 to 9999999 do begin j := i; k := n; while j > 0 do begin m[k] := j mod 10; j := j div 10; k -= 1; end; fl := 1; for k := 1 to n-1 do for j := k+1 to n do if (m[k] = m[j]) or (m[k] = 0) or (m[j] = 0)then fl := 0; if fl = 1 then begin {for j := 1 to n do write(m[j]); writeln;} count += 1; end; end; writeln(count); end.
run
|
edit
|
history
|
help
0
15
[DE/GER] Vigenere Chiffre (Entschlüsselung)
practica 2 ejercicio 10
Lab1SumWithRepeat
Calculatrice 2.0
fgh
Sorting
тренировка баскетболиста 2
Object Pascal
pdp31-final