Question

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

Answer 1

Ответ:

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.

Объяснение: