Розбір для 1906: Рамка

Памʼятайте, що цей розбір слід використовувати лише коли ви застрягли, і не копіювати код з нього. Будь ласка, поважайте автора задачі та автора розбору.
Надсилання офіційного розвʼязку до того, як ви самі розвʼяжете задачу, є порушенням, за яке можна отримати блокування.

Ти думаєш, що таки треба підглянути? Добре, тисни справа )

var i,j,r,c,t:integer;

begin
    readln(t);
    repeat
        readln(r,c);
        for i:=1 to r do begin
            for j:=1 to c do 
                if (i=1) or (j=1) or (i=r) or (j=c) then write('*') else write('.');
            writeln;
        end;
        writeln;
        t:=t-1;
    until t=0;


end.

Коментарі

Будь ласка, прочитайте правила перед коментуванням.

Наразі коментарів немає.