Question

День народження Сонечки
​
Ліміт використання часу процессора 1 секунда
Ліміт використання пам'яті 256 мегабайтів

Сонечка — найкраща подруга Міс М. Вона вступила до найкращого університету далекої та прогресивної країни Безчаїндії. Міс М дуже сумує за подружкою, тому вирішила зробити подарунок для Сонечки, поки вона навчається в іншій країні.

Сьогодні в Сонечки день народження, але Міс М ще може встигнути підготувати подарунок, оскільки має час, адже Сонечка повернеться трішки пізніше.

Міс М вирішила, що хоче навчитися вишивати хрестиком і зробити орнаменти на вишиванці, яка буде подарунком для Сонечки, і подарувати, коли та повернеться. Але вона поки взагалі не знає, з чого почати. У неї з'явилася ідея написати програму, що буде робити орнамент потрібної ширини та довжини, який вона може потім використовувати як приклад для вишивки.

Вишиванка — це прямокутник n×m. Орнаменти — це два промені, які виходять з верхніх кутів вишиванки та мають кути 45∘. Промінь відбивається, коли доторкається до вертикального краю. Коли промінь доторкається до нижнього краю — він зникає. Для кращого розуміння можете подивитися приклади.

Допоможіть Міс М навчитися вишивати хрестиком та подарувати красиву вишиванку прекрасній Сонечці на день народження, написавши таку програму, яка відповідно до заданої ширини n та довжини m виведе приклад орнаменту.
Вхідні дані

Перший рядок містить два цілі числа n та m (3≤n,m≤1000) — висота та ширина відповідно.
Вихідні дані

Виведіть орнамент розмірами n×m.
Приклади

Answer 1

Ответ:

var i, j, n, m, k:integer;

   A:array [1..1000,1..1000] of integer;

begin

read (n, m);

for i:=1 to n do

  for j:=1 to m do

    (A[i,j]):=random(1000);

k:=j;

if n>3 then

   while i>k do

        begin

          for i:=1 to j do

          begin

          for j:=1 to m do

            if (i=j) or (i=m+1-j) then write ('x') else write ('.');

            writeln;

           end;

        end;

        i:=n-j;

        k:=i;

        n:=n-j;

    for i:=2 to j do

          begin

          for j:=1 to m do

            if (i=j) or (i=m+1-j) then write ('x') else write ('.');

            writeln;

           end;

end.

Объяснение: