Informatika va at

10.3. 60 ta belgidan iborat ketma-ketlik berilgan. Bu ketma-ketlik ikki marta ikkita satrga chop etilsin.

10.4. type tuplam = array[1..8] of char;

suz = array[1..8] of char;

var a1: array[1..20] of tuplam;

a2: array[1..30] of suz;

k1, k2: integer;

Berilgan a1 vektordagi, uning birinchi elementi (tuplam) bilan ust­ma-ust tushadigan elementlar soni - k1 va berilgan a2 vektordagi uning bi­rinchi elementi (suz) bilan usma-ust tushadigan elementlar soni – k2 topilsin.

10.5. type suz = array[1..5] of char;

ruyhat = array[1..60] of suz;

var s: ruyhat;

Quyidagilar chop qilinsin:

a) s ro'yxatdagi hello so'zidan farqli bo'lgan barcha co'zlar;

b) s ro'yxatdagi qolgan so'zlardan leksikografik (alfavit bo'yicha) oldin keluvchi so'zni (ro'yxatdagi so'zlar har xil deb hisoblansin);

v) s ro'yxatdagi barcha so'zlarning oxirgi harflaridan iborat matn;

g) s ro'yxatdagi ikkita d harfini o'z ichiga oluvchi barcha so'zlar.

10.6. var s: array[1..6] of char;

O'qish faylida nuqta bilan tugaydigan 1 dan 6 tagacha harflar be­rilgan. Bu harflar kiritilsin va ularni s satr boshiga joylashti­rilsin, satr oxiri esa probel bilan to'ldirilsin.

10.7. Probel bilan tugaydigan va har birida 1 dan 8 gacha kichik lo­tin harflaridan iborat ikkita har xil so'zlar berilgan. Bu so'zlar al­favit tartibida joylashtirilsin ("probel" belgisi ixtiyoriy harf belgisidan oldin keladi deb hisoblansin).

10.8. type rang = (red, blue, green, yellow, black, white);

var x: color;

O'qish faylida probel bilan tugaydigan kichik lotin harflaridan iborat ketma-ketlik berilgan. Agar bu ketma-ketlik rang turidagi to'g'ri yozuv bo'lsa, u holda uni x o'zgaruvchiga berilsin, aks holda xato to'g'risida ma'lumot berilsin.

10.9. Quyida keltirilgan programmadagi xatolar ko'rsatilsin:

program hato;

const sign = ’+-*/’;

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

i, j, k: integer;

begin

read(s);

for i:=1 to 10 do

for j:=1 to 4 do

if s[i]=sign[j] then k:=k+1;

if k<6 then writeln(3) else writeln(sign);

end.

10.10. const v='aeiou';

type satr = array[1..200] of char;

var s: satr; k: 0..200;

Aniqlansin. Berilgan s satrda v konstantada sanab o'tilgan belgilar necha marta (k) uchraydi.