Урок 13.1 Задача 3
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):
?
1
2
3
4
+ + + + + +
+ - - - - +
+ - - - - +
+ + + + + +
program u132z3; var m, i, j, n: integer; begin n:=1; while (n<8) do begin m:=1; while (m<8) do begin if (((n > 1) and (n < 7)) and ((m > 1) and (m < 7))) then write('- ') else write('+ '); m:=m+1; end; n:=n+1; writeln(); end; readln(); end.
Ответ в колнсоль
+ + + + + + +
+ - - - - - +
+ - - - - - +
+ - - - - - +
+ - - - - - +
+ - - - - - +
+ + + + + + +
- Log in to post comments
- 260 reads