(45 ) (pascal)
сгенерировать n случайных трехзначных чисел. вывести их на экран. посчитать количество чисел, в записи которых все цифры различны. (число n ввести с клавиатуры, оно должно быть больше нуля. если n меньше нуля, то вывести сообщение об ошибке и остановить алгоритм).

var i,n,k,a:integer;

begin

write('Введите количество трехзначных чисел, которые надо сгенерировать: ');

readln (n);

if n <=0 then writeln ('Ошибка')  

else for i:=1 to n do

begin

a:=random (900)+100;

write (a,'  ');

if (a div 100 <> a div 10 mod 10) and (a div 10 mod 10 <> a mod 10) and (a div 100 <> a mod 10) then k:=k+1

end;

writeln;

if k <> 0 then write ('Количество чисел, в записи которых все цифры различны ',k)

end.

Объяснение: