Жеңіс Шоңбаев. Батыс Қазақстан облысы, Дарынды балаларға арналған мамандандырылған С. Сейфуллин атындағы №11 облыстық қазақ мектеп-интернат кешені.

C есебі Сандар
Сізге N саны және D цифры берілген. Кұрамында D цифры жоқ бүкіл N-таңбалы сандарды шығарыңыз.

Мәліметтерді енгізу форматы
Енгізу файлында N (1 ≤ N ≤ 7) саны және D (0 ≤ D ≤ 9) цифры берілген.
Мәліметтерді шығару форматы
Кұрамында D цифры жоқ бүкіл N-таңбалы сандарды өсу ретімен шығарыңыз.

Мысал / Пример

Задача C Числа

Вам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающем порядке.

Формат входных данных
В единственной строке входного файла записаны число N (1 ≤ N ≤ 7) и цифра D (0 ≤ D ≤ 9).
Формат выходных данных
В выходном файле выведите все N-значные числа, которые не содержат цифру D, по одному в одной строке.

Есепте N (1 ≤ N ≤ 7)  таңбалы санның бастапқы және соңғы мәндерін анықтап алып, осы аралықтағы сандардың ішінен құрамында берілген цифры бар сандарды шығарып тастау керек.

var k:longint;
n,d,s1,s2,i,s:integer;
f:boolean;
label 1,2;
begin
assign(input,’c.in’); reset(input);
assign(output, ‘c.out’); rewrite(output);
readln(n,d);
if n=1 then begin s1:=0; s2:=9 end else
begin
s1:=1;
for i:=1 to n-1 do s1:=s1*10;
s2:=s1*10-1;
end;

for i:=s1 to s2 do
begin
f:=true;
s:=i;
1:k:=s mod 10; if k=d then begin f:=false; goto 2;end;
s:=s div 10;
if s>0 then goto 1;
2:if f=true then writeln(i);
end;
end.

A есебі Факториал

N - Factorial — 1-ден N-ге дейінгі сандардың кобейтіндісі. Берілген N саны үшін, N - Factorial санының соңында қанша нөл бар екенін анықтаныз.

Мәліметтерді енгізу форматы

Енгізу файлында бір бүтін сан —  N (1 ≤ N ≤ 10⁶) берілген.

Мәліметтерді шығару форматы

N - Factorial санының соңындағы нөлдер санын шығарыңыз.

Мысал / Пример

Задача A Четные

N - Factorial — это произведение всех чисел от 1 до N. Для заданного числа N определите, сколько нулей в конце десятичной записи N - Factorial.

Формат входных данных

В единственной строке входного файла содержится одно целое положительное число N (1 ≤ N ≤ 10⁶).

Формат выходных данных

Выведите одно целое число — количество нулей в конце десятичной записи N - Factorial

Санның факториалын есептеу жеңіл көрінгенімен, бұл жағдайда N (1 ≤ N ≤ 10⁶) шарты есепті күрделендіреді. Сондықтан ұзын арифметика тәсілін қолдану керек.

var
i,j,r,s,t,l,k,m,tt,n,x,y,z :integer;
a,c,d:array[1..1000] of integer;

procedure Kobeitu(f:integer; var m:integer);

begin
tt:=100; n:=tt; x:=4;
repeat
dec(x); k:=0;S:=0; y:=f+1;
repeat
dec(y);
s:=a[x]*c[y]+s+k;
k:=s div 10; s:=s mod 10;
d[n]:=d[n]+s; s:=d[n] div 10;
d[n]:=d[n] mod 10;
if y=1 then d[n-1]:=s+k;
dec(n);
until y=1;
n:=tt-(3-x+1);
until x=1;

for j:=1 to tt do if d[j]<>0 then break;
k:=0;
for x:=j to tt do begin inc(k); c[k]:=d[x]; d[x]:=0; end;
m:=k;
end;
begin
assign(input, ‘a.in’); reset(input);
assign(output,’a.out’); rewrite(output);
readln(r);
c[1]:=1; m:=1;
for i:=1 to r do
begin
t:=i;
for j:=3 downto 1 do
begin
a[j]:=t mod 10;
t:=t div 10;
end;
Kobeitu(m,z);
m:=z;
end;
s:=0;

for i:=m downto 1 do if c[i]=0 then inc(s) else break;
writeln(s);
end.

Б есебі Цифрлар

Біз бір-бірімізге хат жазған кезде сандарды жиі қолданамыз. Сізге ағылшын тілінде жазылған сөйлем берілген. Сол сөйлемде кездесетін бүкіл цифрларды табу керек.

Мәліметтерді енгізу форматы

Енгізу файлында ағылшын тілінде жазылған бір сөйлем берілген. Сөйлемнің ұзындығы 100 символдан аспайды.

Мәліметтерді шығару форматы

Берілген сөйлемде кездесетін бүкіл цифрларды өсу ретімен жазыңыз.

Мысал / Пример

B.in

I owe you 491 tenge and I will return it when I will be in university at 15:22

B.out

12459

Задача Б Цифры

Когда мы переписываемся, мы часто используем цифры в нашем тексте. Вам дано одно предложение на английском языке. Нужно найти все цифры, которые встречаются в этом предложений хотя бы один раз.

Формат входных данных

В единственной строке входного файла содержится одно предложение на английском языке, которое состоит из не более чем 100 символов.

Формат выходных данных

В единственной строке выходного файла выведите все цифры, которые встречаются в данном предложений хотя бы один раз, в возрастающем порядке.

Есеп өте жеңіл деп ойлаймын. Түсінектеме жасаудың өзі артық.

var
f:array[0..9] of boolean;
i:integer;
s:string[1];

begin
assign(input,’b.in’); reset(input);
assign(output, ‘b.out’); rewrite(output);
for i:=0 to 9 do f[i]:=false;
while not eoln(input) do
begin
read(s);
if pos(s,’0123456789′)<>0 then f[pos(s,'0123456789')-1]:=true;
end;

for i:=0 to 9 do if f[i]=true then write(i);
end.

Ұқсас тақырыптар:

• Республиканская олимпиада по информатике 2013–2014, Этап 2, Тур 2, 8-11 классы
• Қалалық олимпиада тапсырмалары 2012.
• 21-22.12.2012. Информатикадан аудандық олимпиада есептері шығаруларымен. 10-11сынып. І-ІІ тур.
• 21.12.2012. Информатика аудандық олимпиада. 8-9 сынып. І-тур.
• Информатика. Аудандық олимпиада есептерінің шығарылуы, II этап, 2008-2009
• 2012-2013 орта мектептерге келген олимпиада есептері, шешулерімен (Ақтөбе облысы бойынша).
• 2012-2013 аудандық олимпиада есептері ІІ тур (Ауданов Махсет, Маңғыстау облысы)
• 18.12.2021 ОЛИМПИАДА. 9-11 сыны І-тур 1-3 есеп (1-нұсқа).
• Информатика пәні бойынша облыстық олимпиада тапсырмалары. (Маңғыстау облысы, 2011-2012 о.ж.)
• 21-22.12.2012. Информатикадан аудандық олимпиада Көп сандар E есебі (пікір).