18.12.2013 ОЛИМПИАДА. 9-11 сыны І-тур 1-3 есеп (2-нұсқа).

Миржан Темирбеков . ШҚО, Тарбағатай ауданы, Ақмектеп орта мектебінің информатика мұғалімі.

Есептер паскальАВС-те тексерілген.

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

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

Мысал / Пример
C.in   N D 2  5
C.out
10   11   12   13   14   16   17   18   19   20   21   22   23   24   26   27   28   29   30   31   32   33   34   36   37   38   39   40   41   42   43   44   46   47   48   49   60   61   62   63   64   66   67   68   69   70   71   72   73   74   76   77   78   79   80   81   82   83   84   86   87   88   89   90   91   92   93   94   96   97   98   99

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

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

uses crt;
var i,n,d,z,x,c,k,a,b:integer;
f, g:text;
begin
assign(f,’C:Olimp 2013-2014c.in’);
reset(f);
Read(f,N,D);
Close(f);
a:=round(power(10,n-1));
b:=round(power(10,n)-1);

for x:=a to b do
begin
z:=x;
k:=0;
while z>0 do
begin
c:=z mod 10;
if c=d then inc(k);
z:=z div 10;
end; if k=0 then Write (x,’ ‘);
end;
{Шыгыс файлы аякталган жок}
assign(g,’C:Olimp 2013-2014c.out’); Writeln (g,x); close(g);
end.

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

Мәліметтерді енгізу форматы
Енгізу файлында бір бүтін сан —  N (1 ≤ N ≤ 106) берілген.
Мәліметтерді шығару форматы
N - Factorial санының соңындағы нөлдер санын шығарыңыз.

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

A.in A.out Комментарий
4
6
10
0
1
2
1*2*3*4=24
1*2*3*4*5*6=720
1*2*3*4*5*6*7*8*9*10=3628800

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

Формат входных данных
В единственной строке входного файла содержится одно целое положительное число N (1 ≤ N ≤ 106).
Формат выходных данных
Выведите одно целое число — количество нулей в конце десятичной записи N - Factorial

***

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

Мәліметтерді енгізу форматы
Енгізу файлында ағылшын тілінде жазылған бір сөйлем берілген. Сөйлемнің ұзындығы 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 S1, S2:string;
i: integer;
f, g:text;

Begin
assign(f,’C:Olimp 2013-2014b.in’);
reset(f);
Read(f,S1);
Close(f);

S2:= ‘ ‘;
for i := 1 to length(S1) do
if (S1[i]>=’0′) and (S1[i]<=’9′) then S2:=S2+S1[i];

assign(g,’C:Olimp 2013-2014b.out’);
Rewrite(g);
Writeln (g,s2) ;
close(g);

end.

 

Check Also

i-151

Информатика пәні бойынша республикалық олимпиада, 2014–2015 о.ж., аудандық кезең, есептердің шығарылуы

 Шоңбаев Жеңіс Меңдіғалиұлы, С.Сейфуллин атындағы №11 ДБАМОҚМИК Республиканская олимпиада по информатике 2014–2015; Этап 2; Тур …

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Лимит времени истёк. Пожалуйста, перезагрузите CAPTCHA.