Олимпиада по инфоматике

Задача 1. "Заботливый Миша" (25 баллов)

Добрый мальчик Миша заботится о своей младшей сестренке Лере. Лерочка только начала ходить. Миша наклеил мягкие накладки на все углы мебели в доме, убрал острые предметы. Какой все-таки Миша молодец! Однажды Миша заметил, что сестренка любит играть с квадратной пластиковой подставкой под горячее. Лерочка может пораниться об углы – подумал Миша. Миша подумал и выполнил первый шаг обработки подставки: срезал каждый угол прямой линией. Подставка стала восьмиугольной. Углы, как показалось Мише, стали менее опасны для ребенка. На следующем шаге обработки подставки Миша вновь срезал каждый угол прямой линией. Подставка превратилась в шестнадцатиугольник. Напишите пожалуйста программу, определяющую количество углов подставки, после обработки ее заботливым Мишей.

Формат входных данных:

Первая строка входного файла содержит натуральное число Т – длину стороны подставки в миллиметрах. Вторая строка содержит натуральное число N – количество шагов обработки подставки. Т ≤ 9000000000000000000. 2 ≤ N ≤ 80.

Формат выходных данных:

В выходной файл a.out вывести единственное целое число — ответ.

Решение в PascalABC

program zadacha2;

var f1,f2:text; s,n:real;

begin assign (f1,'a.in' );

assign (f2,'a.out' );

reset (f1);

rewrite (f2);

readln(f1);

readln (f1, n);

s:=4*exp(n*ln(2));

writeln (f2, s);

close (f1);

close (f2);

end.

Задача A. Дележ яблок Имя входного файла: apple.in Имя выходного файла: apple.out Ограничение по времени: 2 секунды Ограничение по памяти: 64 мегабайта n школьников делят k яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждому школьнику? Формат входных данных Первая и единственная строка входного файла apple.in содержит два натуральных числа n и k (1 ⩽ n, k ⩽ 10 4 ). Формат выходных данных Программа должна вывести в выходной файл apple.out одно целое число — искомое количество яблок. Примеры apple.in apple.out 1 5 5 30 67 2

Решение в PascalABC

program apple; var f1,f2:text; s,n,k:integer; begin assign (f1,'apple.in' ); assign (f2,'apple.out' ); reset (f1); rewrite (f2); read (f1, n); read(f1, k); s:=k div n; writeln (f2, s); close (f1); close (f2); end.