Editorial for 1906: Рамка

Remember to use this editorial only when stuck, and not to copy-paste code from it. Please be respectful to the problem author and editorialist.
Submitting an official solution before solving the problem yourself is a bannable offence.

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

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.

Коментарі

Please read the guidelines before commenting.

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