9-njy synp informatika olimpiada meseleleriniň jogaplary

9-njy synp informatika olimpiada meseleleriniň jogaplary
1. Hakyky san we bitin san berlipdir ( ). -nyň -ji derejesini hasaplamaly:
Bu ýerde san öz-özüne gezek köpeldilýär.
uses crt;
var a,p,i:real; n: integer;
begin
clrscr;
write ('a esasy giriz:'); read (a);
write ('n>0 derejesini giriz:'); read (n);
p:=1;
repeat
p:=p*a;
i:=i+1;
until i>=n;
write (a,'^',n,' = ',p);
readkey;
end.
2. we bitin položitel sanlar berlipdir. Diňe goşmek we aýyrmak operasiýalaryny ulanmak arkaly -i -a bölenimizde ýetýän paýy, şeýle hem galýan galyndyny tapmaly.
uses crt;
var a,b,k: word;
begin clrscr;
write ('a>b sanlary giriz:'); read (a,b);
k:=0;
While a>=b do
begin
a:=a-b; k:=k+1;
end;
write ('pay: ',k, ' galyndy ',a);
readkey; end.
3. Bitin san berlipdir. Bitinleyin bölmek we bitinleýin bölmekden galýan galyndy operasiýalaryny ulanmak arkaly ol sany sagdan çepe okanymyzda (tersine okanymyzda) alynjak sany tapmaly.
uses crt;
var n,i,p: longint;
begin
clrscr;
ReadLn(n);
i:=0;
While n>0 do begin
p:=n mod 10;
n:=n div 10;
i:=10*i+p;
end;
Writeln(i);
Readkey; end.