Школьная олимпиада по программированию 7-8 кл.
олимпиадные задания по информатике и икт (7 класс) по теме

ВСЕРОССИЙСКАЯ ОЛИМПИАДА ШКОЛЬНИКОВ

ПО ИНФОРМАТИКЕ

ШКОЛЬНЫЙ ЭТАП  

РЕШЕНИЯ 7-8 КЛАССЫ

Задача 1

Тесты (за каждый правильный тест 5 баллов):

Возможное решение:

program Task1;

var n: integer;

begin

 readln(n);

 if (n<100) or (n>999)

       then writeln (‘FALSE’)

       else            

               if  (n mod 10)  + (n div100) + (n div 10 mod 10) = 13

then writeln('ENTER')

                         else writeln('LOCK');

   readln;

end.

Задача 2

Тесты (за каждый правильный тест 5 баллов):

Возможное решение:

program Task2;

var a, b, c, mn, s: integer;

begin

        readln(a,b,c);

mn:=a;

if b<mn then mn:=b;

if c<mn then mn:=c;

s:=a+b+c-mn;

writeln('сумма двух наибольших=',s);

readln

end.

Задача 3

Тесты (за каждый правильный тест 4 балла):

Возможное решение:

program Task3;

var a,b,c,d,s:integer;

begin

writeln('Введите 4 числа:');

readln(a,b,c,d);

s:=a+b+c+d;

write (s, ‘ птиц’);

if (s mod 10 =1) and (s mod 100 div 10 <>1)

   then writeln(‘a’)

   else

        if (s mod 100 div 10 <>1) and ((s mod 10 =2) or (s mod 10 =3) or (s mod 10 =4))

            then writeln(‘ы’);

         readln;

end.

Задача 4

За правильный ответ 20 баллов. Рекомендация: если ошибка ученика заключается только в количестве повторений цикла (т.е ответ 64 или 256) начислить за задачу 5 баллов.

Возможное решение:

program Task4;

var i,k:integer;

begin

k:=1;

for i:=1 to 7 do k:=k*2;

writeln(k);

         readln;

end.

Задача 5

Тесты (за каждый правильный тест 5 баллов):

Возможное решение:

program Task5;

var A: array[1..20] of integer;

    i,N,s: integer;

begin

 readln(N);

 for i:=1 to N do readln a[i];

 s:=0;

 for i:=1 to N do

     if a[i]>I then s:=s+a[i];    

 writeln (s);

  readln;

end.