Постройте квадрат со стороной 10 из точек,используя оператор for
Answers & Comments
maonang
Var i, j: integer; begin for i := 1 to 10 do begin for j := 1 to 10 do if not ((j > 1) and (j < 10) and (i > 1) and (i < 10)) then Write('.') else write(' '); writeln; end; end.
Answers & Comments
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
if not ((j > 1) and (j < 10) and (i > 1) and (i < 10)) then
Write('.')
else
write(' ');
writeln;
end;
end.