Задача 3 Урок 13.2
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):
+ + + + + +
+ - - - - +
+ - - - - +
+ + + + + +
var m,i,j,n: integer; begin m := 4; n := 6; for i := 1 to m do begin for j := 1 to n do begin if (i = 1) or (i = m) then write('+ ') else begin if (j = 1) or (j = n) then write('- ') else write('- '); end; end; writeln(); end; readln(); end.
- Log in to post comments
- 466 reads