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