На каждом следующем дне рождения винни пух съедает столько же меда, что и на двух предыдущих. на двух первых днях рождения у пяточка и у кролика он съел по 100 г меда. написать программу, определяющую, сколько килограммов меда съест винни пух на -ом дне рождения. формат входных данных во входном файле задано единственное число (1 до 40 формат выходных данных выведите, сколько килограммов меда съест винни пух на этот день рождения с точностью до одного знака после десятичной точки.

Var 
n,a,b,c,c2,i:integer;
Begin 
Write('Введите число '); 
Readln(n); 
a:=100;
b:=100; 
for i:= 1 to n do Begin 
c:=a+b;  a:=b;  b:=c; 
End; 
c2:=c div 1000; 
write(c2,'.'); 
c:=c div 100 mod 10; 
write(c,' кг съел Винни');
End.  

Номера високосных годов делятся на 4, но не делятся на 100, или делятся на 400. В високосном году 366 дней, в невисокосном 365.

Год високосный, если N делится на 400 (остаток от деления N % 400 равен 0), или N делится на 4, но не на 100 (N % 4 равно 0, а N % 100 нет). Напишем выражение, которое принимает значение 1, если год високосный, и 0 если не високосный.

(400 - (N % 400)) // 400 равно 1, если N делится на 400, иначе 0
(100 - (N % 100)) // 100 равно 1, если N делится на 100, иначе 0
(4 - (N % 4)) // 4 равно 1, если N делится на 4, иначе 0

Осталось заметить, что выражение
(400 - (N % 400)) // 400 - (100 - (N % 100)) // 100 + (4 - (N % 4)) // 4
подходит: если N не делится на 4, то все 3 слагаемых равны 0, если делится на 4, на не делится на 100, то равно 0 - 0 + 1 = 1, если делится на 100, но не на 400, то равно 0 - 1 + 1 = 0, если делится на 400, то 1 - 1 + 1 = 1.

Количество дней отличается от написанного выше на 365.
ответ: 365 + (400 - (N % 400)) // 400 - (100 - (N % 100)) // 100 + (4 - (N % 4)) // 4

     По условию здесь шифр Цезаря +7. Это значит, что при  шифровании вместо каждой буквы писали другую, отдаленную от настоящей на 7 букв вперед по алфавиту.
    Значит при расшифровке надо сдвигаться, наоборот, на 7 букв назад, к началу алфавита. Здесь пронумерованный алфавит.

шифр      Ц    Т    Ж    Ф     Я    Л    Щ
№           24   20   8     22   33   13   27
№ - 7      17   13   1     15   26    6    20
буква       П    Л    А     Н    Ш     Е     Т

ответ: Планшет

Приложение: пронумерованный алфавит
А1   Б2   В3   Г4   Д5    Е6   Ё7   Ж8   З9   И10   Й11   К12   Л13   М14   Н15   О16   П17   Р18   С19   Т20   У21   Ф22   Х23   Ц24   Ч25   Ш26   Щ27  Ъ28   Ы29   Ь30   Э31   Ю32   Я33