A. in Шығару файлының аты / Имя выходного файла: A. out



Дата20.11.2021
өлшемі46.5 Kb.

Республиканская олимпиада по информатике 2014–2015, Этап 2, Тур 1, 5 часов


Енгізу файлының аты / Имя входного файла:

A.in

Шығару файлының аты / Имя выходного файла:

A.out

Есептің жауабы файлының аты / Имя файла решения задачи:

A.{c,cpp,pas}

Уақыт шектеу / Ограничение по времени:

2 секунд

Жадыға шектеу / Ограничение по памяти:

64 мегабайт

A есебі МаксМин

N саннан тұратын тізбек беріледі. Осы сандардың ішінен ең үлкен мен ең кіші санның айырмасын шығарыңыз.



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

Енгізу файлдың бірінші жолында бүтін сан N (1 <= N <= 100000) беріледі. Келесі жолда әрқайсысы 100000-нан кіші немесе тең, оң бүтін N сандар беріледі.



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

Есептің жауабын шығарыңыз.



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

A.in

A.out

Комментарий

4

2 1 3 6


5

6-1=5

Мәліметтерді шығару форматы
program esepA;
var i,n,s:integer;
a:array[1..1000] of integer;
f1,f2:text;
begin
assign(f1,’a.in’);
reset(f1);
assign(f2,’a.out’);
rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2 =1 then s:=s+a[i];
writeln(f2,s);
close(f1);
close(f2);
end.

S жолы беріледі. Осы жолда кездесетін барлық цифрларды және олардың санын шығарңыз.


Мәліметтерді енгізу форматы
Енгізу файлдың бірінші жолында тек цифрлардан тұратын S жолы беріледі (1 <= |S| <= 1000).
Мәліметтерді шығару форматы
Жолда кезедесетін әр цифр үшін оны және ол қанша рет кездесетінін бір бос орынмен бөліп өсу ретімен бір бөлек жолда шығарыңыз.
Мысал / Пример

B.in


B.out

Комментарий

90109914

0 2
1 2


4 1
9 3
program esepB;
var i,s:integer;
c:char;
a:string[26];
f1,f2:text;
begin
assign(f1,’b.in’);
reset(f1);
assign(f2,’b.out’);
rewrite(f2);
a:=’abcdefghijklmnopqrstuvwxyz’;
for i:=1 to 26 do begin
s:=0;
while not eof(f1) do
begin
read(f1,c);
if a[i]=c then s:=s+1;
end;
if s<>0 then writeln(f2,a[i],’ ‘,s);
reset(f1);
end;
close(f1);
close(f2);
end.
Қатарда N орындықтар тұр. Анда-санда адам келіп, бос орындықтарының біріне отырады. Адам отырғанда оның барлық көршілес орындықтарда отырған адамдар тұрып кетеді. Ең көп дегенде қанша орындық бос емес болуы мүмкін?
Мәліметтерді енгізу форматы
Енгізу файлдың бірінші жолында бүтін сан N (1 <= N <= 1000) беріледі 
Мәліметтерді шығару форматы
Есептің жауабын шығарыңыз.

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

D.in


D.out

Комментарий

3

2

101, осында 1 бос емес орындық, 0 бос.


101, где 1 это занятый стул, 0 незанятый.
var
n,s: integer;
begin
Assign(input, ‘D.in’);
Reset(input);
assign(output,’D.out’);
rewrite(output);
readln(n);
s := 0;
if n mod 2 = 0 then s:=n div 2 else
s:=(n div 2) + 1;
WriteLn(s);
end.

N саннан тұратын тізбек беріледі. Осы сандарды екіден қос алып көбейткенде ең көп дегенде қанша шығатынын табыңыз.Мәліметтерді енгізу форматы


Енгізу файлдың бірінші жолында бүтін сан N (1 <= N <= 1000000) беріледі. Келесі жолда әрқайсысы модулі бойынша 1000000-нан кіші немесе тең, бүтін N сандар беріледі.
Мәліметтерді шығару форматы
Есептің жауабын шығарыңыз.
Мысал / Пример

E.in


E.out

Комментарий

3
1 2 3

6

2 * 3=6



4
-10 -5 2 3

50

-10 * -5 = 50


var
i,N,my,j,max: integer;
a: array[1..100] of integer;
begin
Assign(input, ‘E.in’);
Reset(input);
assign(output,’E.out’);
rewrite(output);
Readln(N);
for i:=1 to N do
read(a[i]);
max:=0;
For i:=1 to n do
for j:=i+1 to n do
begin
my:=a[i]*a[j];
if my>max then
max:=my;
end;
write (max);
end.
F есебі Сөздік
Жомартта N сөздер бар.Осыған қосы ода S жолы бар. Ол бұл жолдың кез-келген әріптерің орнын ауыстыра алады. Бұл жолды ауыстырып ол сөздіктен қанша сөзді келтіре немесе ала алады?
program sozder_sany;
var i,j,k,k1,n,y:integer;
s:string; sl:array[1..100] of string;
procedure slova(x:string);
begin
if length(s)<>length(x) then begin writeln(‘NO… ‘);exit; end;
k:=0;
for j:=1 to length(s) do
for y:=1 to length(x) do if s[j]=x[y] then k:=k+1;
if k>=length(s) then k1:=k1+1 else exit;
end;

begin
{write(‘engiziniz N = ‘);


read(n);
for i:=1 to n do read(sl[i]);}
sl[1]:=’food’; sl[2]:=’game’; sl[3]:=’pie’; sl[4]:=’eagm’;
k1:=0;n:=4; s:=sl[n];
for i:=1 to n-1 do
begin
slova(sl[i]);
end;
writeln(‘Sozder sany =…’,k1);
end.



Республика Казахстан


Достарыңызбен бөлісу:




©melimde.com 2020
әкімшілігінің қараңыз

    Басты бет
Сабақтың тақырыбы
бойынша жиынтық
Сабақтың мақсаты
жиынтық бағалау
Сабақ тақырыбы
ғылым министрлігі
тоқсан бойынша
рсетілетін қызмет
Жалпы ережелер
бағалауға арналған
қызмет стандарты
бекіту туралы
Сабақ жоспары
Қазақстан республикасы
жиынтық бағалаудың
жиынтық бағалауға
тоқсанға арналған
Әдістемелік кешені
республикасы білім
бағалау тапсырмалары
арналған жиынтық
арналған тапсырмалар
білім беретін
туралы хабарландыру
Қазақстан республикасының
бағалаудың тапсырмалары
арналған әдістемелік
мерзімді жоспар
пәнінен тоқсанға
Қазақстан тарихы
Реферат тақырыбы
Қазақ әдебиеті
Жұмыс бағдарламасы
бағдарламасына сәйкес
болып табылады
нтізбелік тақырыптық
Мектепке дейінгі
біліктілік талаптары
оқыту әдістемесі
республикасының білім
әдістемелік ұсыныстар
мамандығына арналған
әкімінің аппараты
туралы анықтама
жалпы білім
қойылатын жалпы
жалпы біліктілік
Конкурс туралы
қазақ тілінде
білім берудің
мемлекеттік әкімшілік