Informatika va at

8.19. Belgilar soni 70 tadan oshmaydigan va nuqta bilan tugaydigan matn berilgan. Shu matn teskari tartibda chop qilinsin.

8.20. Bo'sh bo'lmagan, raqamlardan iborat va nuqta bilan tugaydigan matn berilgan. Matndagi eng ko'p uchraydigan raqam chop qilinsin (agar bunday raqamlar bir nechta bo'lsa, ulardan ixtiyoriy bittasi chop qilinsin).

8.21. const n=100;

var s: array [1..n] of char;

Berilgan s vektor kattalikning indekslari quyidagilarga teng bo'lgan elementlari chop qilinsin:

a) ikkining darajalari: (1, 2, 4, 8, 16,...);

b) to'liq kvadratlar: (1, 4, 9, 16, 25,...);

v) Fibonachchi sonlari: (1, 2, 3, 5, 8, 13,...);

8.22. var x: array [1..100] of real;

a: array [1..30] of 1..100;

s: real;

Berilgan x vektordagi, indekslari a vektor elementlarining biror­tasiga teng bo'lgan elementlarining yig'indisi - s hisoblansin. Bunda a_ia_j, ij deb qaralsin.

8.23. var x: array [1..9999] of real; s: real;

Quyidagi ifoda hisoblansin (bunda har bir yig'indidagi birinchi hadning indeksi kvadrat bo'ladi).

s = (x₁+x₂+x₃)(x₄+x₅+...x₈)(x₉+...+x₁₅)...(x₉₈₀₁+...+x₉₉₉₉)

8.24. const n=20;

var s: array [1..n] of char;

Berilgan s vektor kattalikning s_i belgilari quyidagi ko'rinishda chop etilsin.

s₁ s₂ s₃ ... s_n-1 s_n

s₂ s₃ s₄ ... s_n s₁

... ... ... ... ......

s_n s₁ s₂ ... s_n-2 s_n-1