Районная олимпиада по программированию 10-11 класс 2016.

Задача 1.

В одном государстве налоговая система выглядела так: 

• Налог составлял 1% от дохода гражданина, но при этом:
• Если при вычислении 1% получалось целое число, то налог составляет именно это целое число.
• Если при вычислении 1% получается дробное число (не важно, чему равна дробная часть - просто исходя из факта её наличия) - то налог составляет целую часть процента + 1.

Например: если доход составляет 300 тугриков, то 1% равен 3 и налог тоже 3. Если доход составляет 315 тугриков, то 1% равен 3,15, а налог равен 4.

Трудности у участников олимпиады вызвал тот момент, что округление по правилам математики в данном случае не удовлетворяют условию задачи.

Решение:

Вводим доход гражданина.

Проверяем наличие дробной части в 1%.

Напрягаемся, и вспоминаем, что 1% можно получить, разделив число на 100.

Напрягаемся 2, вспоминаем, что div позволяет получить целую часть от деления, а mod выводит ОСТАТОК от деления.

program z10_1_2016;

var

a,b:integer;

begin

Writeln('Vvedite dohod gragdanina');

readln(a);

if (a mod 100>0) then b:=(a div 100)+1

else b:=(a div 100);

writeln('Procent naloga sostavljaet ',b);

end.

Задача 2.

Задача № 2 в этом году, не поверите, палиндром. Определить, является ли строка палиндромом.

Эта задача подробно описана с различными вариантами решений в статье "Аргентина манит негра" этого блога, поэтому я не буду объяснять её здесь еще раз, а просто дам текст оптимального решения.

Program pal_2;

Var

s: string;  

i,f: byte; 

begin 

   write('String: '); 

   readln(s);            

   f := 0;                   

for i := 1 to length(s) div 2 do  

if s[i] <> s[length(s)-i+1] then 

   begin                                        

        writeln('No palindrome');  

        f := 1;                                   

        break                       

    end;                                            

 if f = 0 then write('Palindrome');                                                                    

end.    

Задача № 3.

Это тоже задача из прошлогодней олимпиады.

Если ход решения этой задачи не понятен - сходите СЮДА - мы решили аналог этой задачи в Scratch. Получилась такая веселая программка:

Видео доступно по ССЫЛКЕ

Из одного порта в другой необходимо перевезти 15 различных грузов. Грузоподъемность судна, на котором будет проходить перевозка, 50 тонн. Грузы пронумерованы, и информация о массах грузов хранится в массиве М(15). Определить, сколько рейсов необходимо сделать судну, если грузы неделимы и могут перевозиться только подряд в порядке их нумерации. (Предполагается, что масса отдельного груза не превышает 50 тонн). 

Смысл решения: берем кораблик номер  k и начинаем в него закладывать грузы по порядку. Если сумма того, что там уже есть, и масса текущего груза превышают 50, мы отправляем текущий кораблик, добавляем к k единичку и начинаем грузить дальше с того груза, который не влез в предыдущий кораблик.

program z3;

var

   m:array[1..15] of integer;

   k,i,s:integer;

Begin

   for i:=1 to 15 do

      begin

         writeln ('Введите m','[',i,']');

         readln (m[i]);

      end;

      k:=1; i:=1; s:=0;

##Внимание! Используем цикл   repeat - until. Подробности - в словаре сайта.##

      repeat

         if s+m[i]<=50 then

           begin

             s:=s+m[i];

             i:=i+1;

           end

              else

                 begin

                   k:=k+1;

                   s:=0;

                 end;

       until i>15;

       writeln ('Потребовалось ', k,' рейсов');

end.