Urganch davlat universiteti axborot texnologiyalari kafedrasi

for i:=

1 

to n do begin 

  k:=i; write(k); 

  

while k<=n*n do begin 

    if k mod n = 

0 

      

then inc(k) 

    

else inc(k,n+

1

); 

    

if k<=n*n then write (

' '

,k) 

   

end; 

   writeln 

end;

 

 

1.1.3.Rebus 

1.3-masala:  VOLVO+FLAT=MOTOR  rebusining  barcha  yechimlarini  izlash  dasturini 

tuzing.  Turli  xil  harflarga  turli  xil  sonlar,  bir  xil  harflarga  bir  xil  sonlar  mos  keladi.  Har  bir 

sonning katta raqami noldan farqlidir. 

Masala  yechimi  va  tahlili.  Barcha  yechimlarni  izlovchi  dastur  tarmoq  bo‘yicha 

tanlanilishi  kerak.  Bu  to‘g‘ri bo‘lishi  qulay  va samarali  bo‘lishi  uchun uni  qanday  tashkil  qilish 

kerakligi  asosiy  muammodir.  To‘qqizta  harf  mavjud.  Har  bir parametrida 0 dan 9 gacha  siklini 

yozish  mumkin.  Ular  har  bir  to‘plam  rebusning  yechimi  bo‘ladimi  yo‘qmi  tekshirib  to‘qqiz 

o‘zgaruvchining  qiymatlarini  barcha  mumkin  bo‘lgan  to‘plamlarini  generatsiyalashi  mumkin. 

Biroq to‘plamlarning umumiy soni 10

9

 ga teng va har bittasi uchun rebus sharti 

(10

4

V+10

3

O+10

2

L+10V+0)+ (10

3

F+10

2

I+10A+T)= (10

4

M+10

3

O+10

2

T+10O+R),  

---

ni tekshirish zarur va to‘g‘ri xil harflarga mos keluvchi raqamlar bir-biridan farq qiladi va sonlar 

noldan boshlanadi. Bunday tekshirishlar juda ko‘p.