Паскаль бағдарламасындағы есептер жинағы информатика пәнінен

І тур (А, В, С есептері)A есебі ФакториалN - Factorial — 1-ден N-ге дейінгі сандардың кобейтіндісі. Берілген N саны үшін, N - Factorialсанының соңында қанша нөл бар екенін анықтаныз.Мәліметтерді енгізу форматыЕнгізу файлында бір бүтін сан — N (1 ≤ N ≤ 106) берілген.Мәліметтерді шығару форматыN - Factorial санының соңындағы нөлдер санын шығарыңыз.Мысал / ПримерA.in A.out Комментарий4610 012 1*2*3*4=241*2*3*4*5*6=7201*2*3*4*5*6*7*8*9*10=3628800

Program esepA;label 1;var n,i,s:integer;f:longint;f1,f2:text;beginassign(f1,’a.in’); reset(f1);assign(f2,’a.out’); rewrite(f2);readln(f1,n);f:=1;for i:=1 to n do f:=f*i;s:=0;for i:=1 to n do if f mod 10=0 thenbegins:=s+1;f:=f div 10;endelse goto 1;1:writeln(f2,s);close(f2); close(f1);end.

**************************************Енгізу файлының аты / Имя входного файла: B.inШығару файлының аты / Имя выходного файла: B.outЕсептің жауабы файлының аты / Имя файла решения задачи: B.{c,cpp,pas}Уақыт шектеу / Ограничение по времени: 2 секундЖадыға шектеу / Ограничение по памяти: 64 мегабайт

Б есебі ЦифрларБіз бір-бірімізге хат жазған кезде сандарды жиі қолданамыз. Сізге ағылшын тілінде жазылған сөйлем берілген. Сол сөйлемде кездесетін бүкіл цифрларды табу керек.Мәліметтерді енгізу форматыЕнгізу файлында ағылшын тілінде жазылған бір сөйлем берілген. Сөйлемнің ұзындығы 100 символдан аспайды.Мәліметтерді шығару форматыБерілген сөйлемде кездесетін бүкіл цифрларды өсу ретімен жазыңыз.Мысал / ПримерB.inI owe you 491 tenge and I will return it when I will be in university at 15:22B.out12459

Program esepB;label 1;var s,z:string;n,i,j:integer;f1,f2:text;beginassign(f1,’b.in’); reset(f1);assign(f2,’b.out’); rewrite(f2);readln(f1,s);n:=length(s);z:=’0123456789′;for i:=1 to 10 dobeginfor j:=1 to n do if s[j]=z[i] thenbeginwriteln(f2,z[i]);goto 1;end;1:end;close(f2); close(f1);end.

Енгізу файлының аты / Имя входного файла: C.inШығару файлының аты / Имя выходного файла: C.outЕсептің жауабы файлының аты / Имя файла решения задачи: C.{c,cpp,pas}Уақыт шектеу / Ограничение по времени: 2 секундЖадыға шектеу / Ограничение по памяти: 64 мегабайт

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» деп…