376
Har bir raqamga mos qo‘yish uchun tartib raqami 0 dan 9 gacha
bo‘lgan 10 ta elementli yordamchi massiv kiritamiz. Kesib olingan
raqamga mos indeksli element qiymatini bittaga oshiramiz. Endi turli
raqamlar sonini aniqlash uchun massivning 0 dan farqli elementlari
sonini sanash kifoya.
Dasturi:
Program Turli_raqamlar;
Var n :longint; i,k:byte;a: array [0..9] of byte;
BEGIN
readln(n);
for i:=0 to 9 doa[i]:=0;
while n<>0 dobegini:=n mod 10;Inc(a[i]);n:=n div 10;
end;
k:=0;for i:=0 to 9 doif a[i]<>0then begin inc(k);
writeln(i, ‘- ‘, a[i]);
end;
Write(k);
readln;
END.
3- Masala. O‘XSHASH MASSIVLAR
Massivlar o‘xshash deyiladi, agar ularda bir xil sonlar ishtirok
etgan bo‘lsa.Natural N va M sonlar, butun qiymatli A[1..N] va B[1..M]
sonlar massivlari berilgan. Bu massivlarni o‘xshash yoki o‘xshash
emasligini aniqlovchi dastur tuzing.
