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

Аудандық олимпиада. І-тур. 2016-2017 оқу жылы.

A есебі N саннан тұратын А сандар тізбегі берілген. Осы сандар тізбегін кері ретімен шығару …

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

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

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

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

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

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

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

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

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