Пятница, 14.06.2024, 04:49
Информатика и математика в Плесской школе
Приветствую Вас Гость | RSS
Меню сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа

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

ЗАДАНИЯ 7-8 КЛАССЫ

Публикую решения авторов олимпиады.

1.    Входной замок Лисы Алисы работает следующим образом: если введено натуральное число, которое меньше 100 или больше 999 – на дисплее устройства появляется надпись «FALSE»; если у введённого числа сумма цифр равна 13 – появляется надпись «ENTER» и можно войти; в остальных случаях появляется надпись «LOCK».
Входные данные: натуральное число N (1<=N<=10000 ).
Выходные данные: необходимо вывести надпись, которая должна быть на дисплее.
Пример:
Ввод     2    Вывод       FALSE
Ввод     427    Вывод       ENTER
Ввод    318    Вывод       LOCK
(20 баллов)

Возможное решение:
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');
end.


2.    Даны три целых числа. Найти сумму двух наибольших из них. 
Входные данные: 3 целых  числа  А,В,C (-1000<= А,В,С  <=1000). 
Выходные данные:  сумма двух наибольших из них. 
Пример:
Ввод      5  2  -13    
Вывод    7

Ввод     10  10  10     Вывод    20 

(20 баллов)

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

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);
end.

 

3.    К кормушке прилетели воробьи, синицы, снегири и вороны. Мальчик посчитал количество птиц каждого вида. Напишите программу, которая запрашивает четыре числа – количество птиц каждого вида, а затем сообщает общее число птиц у кормушки, дописывая к числовому значению слово «птица» в правильной форме. Например, 33 птицы, 11 птиц, 21 птица.
Входные данные: 4 натуральных  числа  А,В,C,D ( А,В,С,D  <=100). 
Выходные данные:  сумма переменных А,В,C,D и слово «птица» с согласованным окончанием.
Пример:
Ввод     2   5   8   1    Вывод     16 птиц
Ввод    4   2   7   10      Вывод     23 птицы
Ввод    3   1   8   9    Вывод     21 птица
(20 баллов)

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(‘ы’);
end.

 


4.    Компьютерный вирус размножается, создавая свою копию при каждом включении компьютера. При следующем включении каждая копия снова создаёт свою копию и так далее. В понедельник Петя занёс этот вирус (в одном экземпляре) к себе в компьютер с флэшки, которую ему дал одноклассник. Сколько копий этого вируса будет на Петином компьютере через неделю (в следующий понедельник после включения), если он включает свой компьютер один раз в день.
Входные данные отсутствуют. 
Выходные данные:  количество компьютерных вирусов через неделю (128).                    (20 баллов)

program Task4;
var i,k:integer;
begin
k:=1;
for i:=1 to 7 do k:=k*2;
writeln(k);
end.

 


5.    С  клавиатуры  задается  число  N не превышающее 20, определяющее количество элементов одномерного целочисленного массива.  Затем вручную заполняется сам массив из N элементов. Особым элементом этого массива назовём элемент, значение которого больше своего индекса (порядкового номера). Нумерация индексов начинается с 1. Найти сумму особых элементов массива. 
Входные данные: натуральное N и N целочисленных элементов массива.
Выходные данные:  число – сумма особых элементов массива.  
Пример:
Ввод    7   
5    8    1    2   10   6  -3    Вывод     23
Ввод    5   
0   1   2   3   4    Вывод     0
(20 баллов)

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);
end.

 

 

Поиск
Календарь
«  Июнь 2024  »
ПнВтСрЧтПтСбВс
     12
3456789
10111213141516
17181920212223
24252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Учительский портал
    Copyright MyCorp © 2024