A есебі Жұптар

N саннан тұратын тізбек беріледі. Осы сандардың ішінен жұп сандардың қосындысын шығарыңыз

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

Мәліметтерді шығару форматы
Есептің жауабын шығарыңыз.
Мысал / Пример

Задача A Четные
Дается последовательность из N чисел. Выведите сумму четных чисел среди них.
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 1000). В следующей строке задаются N положительных целых чисел, каждая из которых меньше или равно 1000.
Формат выходных данных
Выведите ответ к задаче.

Паскалда шығаруы:
Шығарған  Күнжақсы Жеткізген. Маңғыстау.

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 =0 then s:=s+a[i];
writeln(f2,s);
close(f1);
close(f2);
end.

Осы есепті Жеңіс Шоңбаев былай шығарған: Павлодар.
А. Четные
——————————-
var
n, x ,s,k: Integer;
begin
Assign(input, ‘A.in’);
Reset(input);
assign(output,’A.out’);
rewrite(output);

ReadLn(n);
s := 0;
for k := 1 to n do
begin
read(x);
if (x > 0) and (x mod 2 = 0) then
s := s + x;
end;
writeln(s);
readln
end.

Мен (Жақаев М) былай шығардым: Жамбыл.
(Кіріс-шығыс файлын қоспағанда)
А есебі жұптар
Program juptar_kosyndysy;
uses crt;
var n,i,s:integer;
x:array[1..1000] of integer;
begin
write(‘n = ‘);
read(n);
s:=0;
for i:=1 to n do read(x[i]);
for i:=1 to n do
if x[i] mod 2=0 then s:=s+x[i];
write(‘s = ‘,s);
end.

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

Задача B Веселые цифры
Дается строка S. Нужно вывести все цифры, которые встречаются в ней и их количество.
Формат входных данных
Первая строка входного файла содержит состоящую только из цифр строку S, (1 <= |S| <= 1000). Формат выходных данных
Для каждой цифры, которая встречается в строке, выведите в отдельной строке ее и сколько раз она встречается, разделяя ровно одним пробелом, в возрастающем порядке.

Күнжақсы Жеткізген.
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:=’0123456789’;
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.

Жеңіс Шоңбаев
В. весёлые цифры. 8-9 класс
var
a: array ['0'..'9'] of integer;
s: string;
c: integer;
k: char;
nf: boolean;
begin
Assign(input, ‘B.in’);
Reset(input);
assign(output,’B.out’);
rewrite(output);
read(s);
for c := 1 to length(s) do inc(a[s[c]]);
for k := ’0′ to ’9′ do
if a[k] > 0 then
if nf then
writeln(k, ‘ ‘, a[k])
else begin
writeln(k, ‘ ‘, a[k]);
nf := true;
end;
end.

С есебі Жай сандар
Бүтін N саны беріледі. N-ге дейінгі барлық жай сандардың қосындысын табыңыз. Жай сан 1-ге және өзіне ғана бөлінетін сан.
Мәліметтерді енгізу форматы
Енгізу файлдың бірінші жолында бір бүтін сан N (1 <= N <= 1000) беріледі.
Мәліметтерді шығару форматы
Есептің жауабын шығарыңыз.

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

Задача C Простые числа
Задано целое число N. Найдите сумму простых чисел до N. Простое число это число, которое делится только на 1 и на самого себя.
Формат входных данных
Первая строка входного файла содержит одно целое число N (1 <= N <= 1000).
Формат выходных данных
Выведите ответ к задаче.

Шешуі: Күнжақсы. Маңғыстау.
program esepC;
var n,s:longint;
i,j,k:integer;
f1,f2:text;
begin
assign(f1,’c.in’);
reset(f1);
assign(f2,’c.out’);
rewrite(f2);
readln(f1,n);
s:=0;
for i:=1 to n do begin
k:=1;
for j:=2 to i do
if i mod j=0 then k:=k+1;
if k=2 then s:=s+i;
end;
writeln(f2,s);
close(f1); close(f2);
end.

Жеңіс. Павлодар.
С. Простые числа. 8-9-10-11 класс
var
n,i,j,t,s:longint;
begin
Assign(input, ‘C.in’);
Reset(input);
assign(output,’C.out’);
rewrite(output);
readln(n);
s := 0;
for i := 2 to n do
begin
j := 2;
t:= Round(Sqrt(i));
while (i mod j <> 0) and (j <= t) do Inc(j); if j > t then
Inc(s, i);
end;
WriteLn(s);
end.

Информатиктер,өзіңіз шығарған есеп вариантын осы жерге астынғы жағына жаза беріңіздер.

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

• Информатика. Аудандық олимпиада есептерінің шығарылуы, II этап, 2008-2009
• 2008-2009 Олимпиада есептері шешулерімен.
• 2012-2013 орта мектептерге келген олимпиада есептері, шешулерімен (Ақтөбе облысы бойынша).
• Қалалық олимпиада тапсырмалары 2012.
• Информатика бойынша олимпиада есептерінің шығарылуы, II этап, 2009-2010.
• I-тур. Информатикадан 2011-2012 жылғы аудандық олимпиадасы, 2-этап, 5 сағат (2012 облыстық І-тур)..
• Pascal-да программалар: 2-лік->10 сан, 10-дық->2 сан, 4 амал, Қазақша жыл.
• ІІ-тур. Информатикадан 2011-2012 жылғы аудандық олимпиадасы, 2-этап.
• Паскаль. Кіріс, шығыс файлдары
• Информатика 2010-2011. Олимпиада есептері шығарылуымен.