(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.
Объяснение: