Меню сайта

Задача №13

Получить -n четырёхзначных чисел, в записи которых нет двух одинаковых цифр.


Program for_13-

uses crt-

var i,j,k,l,a : longint-

m,n : integer-

begin

clrscr-

write(‘введите количество чисел ‘)-readln(n)-

m:=0-

for i:=1 to 9 do

for j:=0 to 9 do

for k:=0 to 9 do

for l:=0 to 9 do

if (i&lt-&gt-j)and(i&lt-&gt-k)and(i&lt-&gt-l)and(j&lt-&gt-k)and(j&lt-&gt-l)and(k&lt-&gt-l)and(m&lt-=n)then

begin

a:=1000*i+100*j+k*10+l-

write(‘ ‘,a)-m:=m+1-

end-

readln-

end.

Категория: Циклы | Дата: 19.11.12

Меню раздела
Блок