Программа құрайық. Program Upr1; Vаг n : integer

1-ші есеп: Латын әріптерінен тұратын, нүктемен аяқталатын тізбекте а, е, с, һ әріптері неше рет кездесетінін табатын программа құрайық.

S : string;

Begin

While S[i]<> ‘.’ Do

I := i+1;

Бұл программаны Эратосфен торы деп аталатын алгоритмді пайдаланып қүрайық.

2-ден-100-ге дейінгі бүтін сандарды ретімен жазамыз. Бірінші жай сан 2, оны қалдырып, оған еселі сандарды алып тастаймыз. Қалған сандардың біріншісі 3, ол жай caн, оны да қалдырамыз және енді 3-ке еселі сандарды алып тастаймыз, 4 саны алынып қалғандықтан, қалған сандардың біріншісі 5, ол жай сан, оны да қалдырып, 5-ке еселі сандарды алып тастаймыз т.с.с..

Program Upr2;

Const N=100;

Begin

While S <> [] Do {S – жиыны босағанша қайталаймыз}

Begin

While N1<= N Do

Begin

P :=P+[N2]; {P жийынына жай сандарды жинақтау}

for N1 :=1 to N do {жай сандарды экранға шығару} If N1 in P then Write (N1);

var x,o,d,a,t:0..9;

xod,mat:0..099;

begin

for x:=1 to 3 do

for o:=0 to 9 do

if x<>o then

for d:=1 to 9 do

if Not (d in[o,x,5]) then

begin

xod:=(10*x+o)*10+d;

begin

mat:=mat div 10;

a:=mat mod 10;

if a<>t then

if [x,o,d]*[a,t]=[] then

if [x,o,d,a,t]*[mat div 10]=[] then

write (' ':9,xod,' + ',xod,' + ',xod,' = ',3*xod,' ':10)

End