Информатика. Аудандық олимпиаданың І тур тапсырмалары (2014-2015 о.ж.)

kunjakJenkiz000Жеткизгенова Кунжаксы Таубаевна “Бейнеу гимназиясы” ММ-нің информатика пәні мұғалімі.

10-11 сынып 8-9 сынып
program esepA;
var a:array[1..10000] of longint;
max:longint;
i,min,n:integer;
begin
read(n);
for i:=1 to n-1 do read(a[i]);
readln(a[n]);
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];    writeln(max,’*’,min,’=’,max*min);
readln;
program esepA;
var a:array[1..10000] of longint;
max:longint;
i,min,n:integer;
begin
read(n);
for i:=1 to n-1 do read(a[i]);
readln(a[n]);
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln(max,’-‘,min,’=’,max-min);
readln;
program esepB;
var m,n,s:longint;
begin
s:=1;
readln(n);
m:=n;
repeat
m:=n mod 10;
s:=s*m;
m:=n div 10;
n:=m;
until (m=0);
writeln(‘жауабы: ‘,s);
readln;
end.
program esepB;
var m,n,s:longint;
begin
s:=0;
readln(n);
m:=n;
repeat
m:=n mod 10;
s:=s+m;
m:=n div 10;
n:=m;
until (m=0);
writeln(‘жауабы: ‘,s);
readln;
end.

Есептердің берілгендерін көру 10-11     8-9

Check Also

Информатика-7. Символдық шамаларға есептер шығару.

Дарменова Айбобек Кылышбековна, Маңғыстау облысы Маңғыстау ауданы Шетпе селосы “Шетпе лицейі” ММ информатика пәнінің мұғалімі …

4 комментария

  1. cізге көп рахымет, осындай көмегіңізге әрқашан зәруміз,

  2. күнжақсы жеткізгенова

    рахмет. Сайт администраторына көптен көп рахмет. Осылайша тәжірибе алмасуға мүмкіндік берген сайт

  3. Жеткизгенова Кунжаксы Таубаевна сізге көп рахмет! Еңбегіңізге шығармашылық табыс тілеймін.

  4. Сизге коп коп рахмет! енбегиниз жансин

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

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

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