ООО «Симптотика» собирается наладить выпуск обучающих игр для детей младшего дошкольного возраста. Одной из придуманных игр был набор кубиков, из которых можно было собирать различные фигуры. Кубики упаковывались в коробку размером N×N×1 кубиков.
Однако, многочисленные маркетинговые исследования показали, что детям неинтересно просто собирать различные фигурки. Гораздо интереснее складывать некоторый набор кубиков на дно коробки в столбики, а после этого переворачивать коробку на 90 градусов по часовой стрелке и смотреть, как именно меняется их расположение. Будем для простоты считать, что коробка поворачивается мгновенно, после чего все кубики падают на дно. На следующем рисунке продемонстрировано, как выглядит расположение кубиков в коробке до и после поворота на 90 градусов.
Разумеется, многим детям становится интересно, как будет выглядеть расположение кубиков после K поворотов в том же направлении. Требуется написать программу, которая вычисляет итоговое положение кубиков в коробке после K поворотов.
Формат входных данных
Сначала вводятся целые числа N
и K (1≤N≤10, 0≤K≤109). После этого, во второй строке вводятся N неотрицательных чисел, не превышающих N. i-е число обозначает количество кубиков в столбце под номером i.
Формат выходных данных
Необходимо вывести N
чисел через пробел, i-ое из которых обозначает количество чисел в i-ом столбце в полученном после K поворотов расположении кубиков.
Сначала он поднялся на один уровень-Значит он перешёл в папку,в которой хранится папка Архив Затем перешёл в какой-то подкаталог текущего каталога-Значит он перешёл в папку,которая хранится в папке,в которой хранится Архив,то есть эта папка находится на одном уровне с папкой Архив. Еще раз перешел в какой-то подкаталог текущего каталога-Значит он перешёл в папку,которая хранится в папке,которая находится на одному уровне с папкой Архив. С:\Данные\Документы\2009 Значит 2009-Еще раз перешел в какой-то подкаталог текущего каталога Документы -Затем перешёл в какой-то подкаталог текущего каталога,значит эта папка находится на одном уровне с папкой Архив Значит искомый адрес: С:\Данные\Архив ответ:Вариант 3
1 задача program proga; var st,st2:string; i:Integer; begin writeln('Введите число'); readln(st); for i:=1 to length(st) do begin st2:=st[i]; write(st2,' '); end; end. 2 задача program proga2; var st,st2:string; i,a:Integer; begin writeln('Введите возраст'); readln(a); if a>120 then writeln('Неверные данные'); if a=1 then writeln(a,' год'); if (a>1) and (a<5) then writeln(a,' года'); if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год'); if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then writeln(a,' лет'); if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года '); if(a>104) and (a<110)then writeln(a,' лет'); end.
Затем перешёл в какой-то подкаталог текущего каталога-Значит он перешёл в папку,которая хранится в папке,в которой хранится Архив,то есть эта папка находится на одном уровне с папкой Архив.
Еще раз перешел в какой-то подкаталог текущего каталога-Значит он перешёл в папку,которая хранится в папке,которая находится на одному уровне с папкой Архив.
С:\Данные\Документы\2009
Значит 2009-Еще раз перешел в какой-то подкаталог текущего каталога
Документы -Затем перешёл в какой-то подкаталог текущего каталога,значит эта папка находится на одном уровне с папкой Архив
Значит искомый адрес:
С:\Данные\Архив
ответ:Вариант 3
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.