I bölmə t t t

for i := 1 to 23 

read(cavab[ı]); 

əmrì əvvəl ekrana  

-Siz Paskal dilini bilirsinizmi?: 

sualını çıxarıb ona 23 sìmvollu bìr cavab yazmaõa ìmkan verərdì. 

 

---

Məsələ  16.  (Mətnì  kodlaşdırma.)  Verìlmìş  a  -mətnìndə  bütün  aralıqları, 

nöqtə  və  vergüllərì  ləõv  edərək   qalan  sìmvolları  əvəzləyərək  nətìcənì ekrana 

verə bìlən proqram yazmalı. 

 

Program  Kodlama; 

Uses     Crt; 

Var      a,b,c: string; 

         i:integer; 

begin 

       clrscr; 

       write(’a verilsin:’); 

       readln(a); 

       b:=’’; 

   for i:=1 to Length(a) do 

begin 

c:=copy(a,i,1);{yaxud element-element: c :=a[i];} 

if     (c<>`,`) and (c<>`.`) and (c<>``) 

then   b:=b+c+c; 

end; 

writeln(b); 

readln; 

end.

 

 

Çalışma  16.  Ìlk  35  sadə  ədədì  və  əlìfba  sırasındakı  hərflərì  ardıcıl  olaraq 

nömrələyìb, verìlmìş mətnìn hər bìr hərfìnì eynì nömrəlì sadə ədədlə əvəz edən 

proqram yazın. 

 

Məsələ  17.  Verìlmìş  «Yazda»  adlı  mətndə,  səhv  getmìş  «qulaq»  sözünü 

«bulaq» sözü ìlə əvəz edən proqram yazmalı.