Информатикадан олимпиада есептер жинағы, 9-сынып

C есебі СандарСізге N саны және D цифры берілген. Кұрамында D цифры жоқ бүкіл N-таңбалы сандарды шығарыңыз.Мәліметтерді енгізу форматыЕнгізу файлында N (1 ≤ N ≤ 7) саны және D (0 ≤ D ≤ 9) цифры берілген.Мәліметтерді шығару форматыКұрамында D цифры жоқ бүкіл N-таңбалы сандарды өсу ретімен шығарыңыз.Мысал / ПримерC.in C.out1 3 0 1 2 4 5 6 7 8 9

Program esepC;var n,d,a,b,n1,i,j:longint;s1,d1:string;t:boolean;f1,f2:text;beginassign(f1,’c.in’); reset(f1);assign(f2,’c.out’); rewrite(f2);readln(f1,n,d);case n of1:begin a:=0; b:=9; end;2:begin a:=10; b:=99; end;3:begin a:=100; b:=999; end;4:begin a:=1000; b:=9999; end;5:begin a:=10000; b:=99999; end;6:begin a:=100000; b:=999999; end;end;for i:=a to b dobegint:=false;str(i,s1); n1:=length(s1);str(d,d1);for j:=1 to n1 do if s1[j]=d1 then t:=true;if not t then writeln(f2, i);end;close(f2); close(f1);end.

ІІ тур (D, E, F есептері)D есебі Үш санN бүтін саннан тұратын а1, а2, …, an тізбегі берілген. Сізге осы тізбекте қосындысы нөлге тең болатын үш санның бар немесе жоқ екендігін тексеру керек.Мәліметтерді енгізу форматыЕнгізу файлының бірінші жолында бір бүтін сан N (1 ≤ N ≤ 200) берілген. Келесі жолдаN бүтін сан a1, a2, …, aN ( - 1000 ≤ ai ≤ 1000) — тізбек элементтері берілген.Мәліметтерді шығару форматыЕгер тізбекте қосындысы нөлге тең үш сан болса «YES» деп шығарыңыз. Егер болмаса «NO» деп шығарыңыз.Мысал / ПримерD.in D.out Комментарий64 14 -6 2 1 2244 -9 2 -1 YESNO (4) + (-6) + (2) = 0

Program esepD;label 1;var i,j,k,n:integer;a:array[1..1000] of integer;t:boolean;f1,f2:text;beginassign(f1,’d.in’); reset(f1);assign(f2,’d.out’); rewrite(f2);readln(f1,n);for i:=1 to n do read(f1,a[i]);t:=false;for i:=1 to n-2 dofor j:=i+1 to n-1 dofor k:=j+1 to n doif (a[i]+a[j]+a[k])=0 thenbegin t:=true; writeln(f2,’YES’); goto 1 end;if not t then writeln(f2,’NO’);1:end.

*************************************E есебі Кері алмастыруN саннан тұратын алмастыру дегеніміз 1-ден N-ге дейінгі әр сан бір рет кездесетін тізбек. b1, b2, …, bN алмастыруы a1, a2, …, aN алмастыруына кері алмастыру болу үшін 1-ден N-ге дейінгі барлықi үшін b[ai] = i болу керек. Берілген екі алмастыру үшін екіншісінін біріншісіне кері алмастыру болатынын немесе болмайтынин анықтаңыз.Мәліметтерді енгізу форматыЕнгізу файлының бірінші жолында бір бүтін сан N (1 ≤ N ≤ 1000) берілген. Екінші жолдаN бүтін сан a1, a2, …, aN (1 ≤ ai ≤ N)— бірінші алмастыру элементтері берілген. Үшінші жолдаN бүтін сан b1, b2, …, bN (1 ≤ bi ≤ N)— екінші алмастыру элементтері берілген.Мәліметтерді шығару форматыЕгер екінші алмастыру бірінші алмастыруға кері алмастыру болса «YES» деп шығарыңыз. Егер болмаса «NO» деп шығарыңыз.Мысал / ПримерE.in E.out Комментарий54 3 1 5 23 5 2 1 441 4 3 22 1 4 3 YES

NO b[a1] = b[4] = 1, b[a2] = b[3] = 2, b[a3] = b[1] = 3, b[a4] = b[5] = 4, b[a5] = b[2] =5

Program esepE;var i,n:integer;a,b:array[1..1000] of integer;t:boolean;f1,f2:text;beginassign(f1,’e.in’); reset(f1);assign(f2,’e.out’); rewrite(f2);readln(f1,n);for i:=1 to n do read(f1,a[i]);for i:=1 to n do read(f1,b[i]);t:=false;for i:=1 to n do if b[a[i]]i then t:=true;if not t then writeln(f2,’YES’) else writeln(f2,’NO’);end.

F есебі ТөлемБүгін Али жергілікті дүкенде C теңгеге сауда жасады. Али ақшаны төлейін деп жатқан кезде сатушы оған “Өтінемін, қайтарымсыз төлеңізші” деді. Алиде құны a1, a2, …, aN теңге болатын N тиын бар. Сіздің тапсырмаңыз Алидің берілген соманы кайтарымсыз төлей алатын немесе алмайтындығын анықтау.Мәліметтерді енгізу форматыЕнгізу файлының бірінші жолында екі бүтін сан C (1 ≤ C ≤ 1000) және N (1 ≤ N ≤ 15) берілген. Келесі жолда N бүтін сан a1, a2, …, aN (1 ≤ ai ≤ 1000) — Алидің тиындарының құндары берілген.Мәліметтерді шығару форматыЕгер Али қайтарымсыз төлей алатын болса «YES» деп шығарыңыз. Төлей алмаса «NO» деп шығарыңыз.Мысал / ПримерF.in F.out Комментарий10 61 20 4 3 11 59 38 2 6 YESNO 1+4+5=10

Program esepF;label 1;var a,b:array[1..1000] of integer;s:array[0..1000] of integer;k,t,i,z,n:integer;tr:boolean;f1,f2:text;procedure B1;label 0;beginwhile b[k]=1 dobegink:=k-1;if k=0 then goto 0;end;b[k]:=1;0:end;procedure T1;beginif (s[k]>z) or ((k=n) and (s[k]z)) then t:=1else t:=0;end;

BEGINassign(f1,’f.in’); reset(f1);assign(f2,’f.out’); rewrite(f2);readln(f1,z,n);for i:=1 to n do read(f1,a[i]);k:=1; b[1]:=0; s[0]:=0; T1; tr:=false;while k>0 dobeginif b[k]=1 then s[k]:=s[k-1]+a[k] else s[k]:=s[k-1];if t=1 then begin B1; T1; endelse if k=n then begin tr:=true; goto 1; endelsebegink:=k+1;b[k]:=0;T1;end;end;1:if not tr then writeln(f2,’YES’) else writeln(f2,’NO’)END.

Екі санның қосындасын табу программасын құру керек.

Program kosindi;

Var a, b, x integer;

Begin

Write (‘a, b-сандарын енгіз’);

Readln(a, b);

X:=a+b;

РЕКЛАМА

Writeln(‘x =’,x);

End.

Екі санның бөліндісін табу программасын құру керек.

Program bolindi;

Var a, b, x:real;

РЕКЛАМА

Begin

Write (‘a, b-сандарын енгіз’);

Readln(a, b);

X:=a/b;

Writeln(‘x=’,x);

End.

№3 Екі санның қосындысының квадраттарын және көбейтіндісін табу программасын құру керек. х = (a+ b) [1] , у = a* b

Program esep 1;

Var a, b, x, y:integer;

Begin Write (‘a. b- сандарын енгіз’);

Readln (a, b);

X:=sqr (a+b);

Y:= a*b;

Writeln (‘x=’, x);

Writeln (‘y=’, y);

End.

№4. k =(x2 + y2) * x+y, мұндағы функциясының мәнін есептейтін программа құру керек.

Program esep 2 ;

Var k:real;

Const x = 5, y = 2.8;

Begin

K: = srq (x) + sqr(y)* sqrt (x+y);

Writeln (‘k = ‘, k);

End.

№5. Апта күндерінің реттік нөмірі бойынша олардың аттарын анықтайтын программа құру керек.

Program kyn;

Var kyn: integer ;

Begin

Write (‘ kynnin aptadagi rettik nomirin engizinder: ‘ );

Readln (kyn);