Дано натуральное n(n

Question

Помоги решить в делфи, пожалуйста

Артур · Accepted Answer

var s:string; 
i,j,j1:integer; 
flag:boolean; 
begin 
// 
// ВВод числа i тра-ля-ля 
// 
s:=inttoStr(i); 
flag:=false; 
for j:=1 to length(s)-1 do 
for j1:=j+1 to length(s)-1 do 
flag:= flag or (s[j]= s[j1]); 
 
// 
//Вывод результата в зависимости от состояния flag 
// 
end. 
 
Кактотак. Наверное можно проще...

Ольховский · Answer

Я не совсем согласен с предыдущим оратором, хотя здравое зерно в его речи есть. Я бы сделал так: 
 
var 
N, i, j : integer; 
flag: boolean; 
st:string; 
 
begin 
//Ввод числа N 
 
st:=IntToStr(N); 
 
while (length (st) <4) do st:="0" + st; 
 
flag:= false; 
for i:=1 to length(st)-1 
 for j:=i+1 to length(st) 
 begin 
 flag:=(st=st[j]); 
 if flag then exit for 
 end; 
 if flag then exit for 
end; 
 
//Вывод результата 
 
end.

Дано натуральное n(n<9999).Выяснить, различны ли все четыре цифры этого числа (с учетом четырех цифр)