Информатика. Аудандық олимпиаданың І тур тапсырмалары (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

5, 7kl. Kuntizbelik informatika.obnovlenka

 Алматы қаласы М. Әуезов атындағы №128 мектеп Информатика пәні мұғалімі Досполова Сәуле Амангелдиновна 2017-2018 оқу жылы 5, 7 …

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

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

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

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

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

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

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

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

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