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