Определить процент чисел, состоящих из разных цифр - PascalABC.NET

Формулировка задачи:

Сгенерировать 50 чисел, каждое из которых не превышает 1000 Распечатать только те числа , которые состоят из разных цифр . Определить процент таких чисел.Половину я написал а дальше не знаю, помогите плиз)

program laba;
uses crt;
var i,a,j,k:integer;
begin
clrscr;
randomize;
for i :=1 to 5 do
repeat
 a:=random(1000);
 writeln(a);
 until i<6;
end.

Решение задачи: «Определить процент чисел, состоящих из разных цифр»

textual
                            Листинг программы 
                        

                            begin
  Randomize;
  var a : array [1..50] of Integer;
  for var i := 1 to 50 do a[i] := Random(1000);
end.
                        

Оцени полезность:

6 голосов , оценка 4.333 из 5

Похожие ответы