Задание 3 Урок 13.2
Primary tabs
Задание 3 Урок 13.2
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):
1 + + + + + +
2 + - - - - +
3 + - - - - +
4 + + + + + +
var m,n,vertikal,gorizont: integer; begin vertikal := 1; gorizont := 1; write('Введите количество знаков по горизонтали и количество знаков '); write('по вертикали, и нажмите ENTER: '); readln(m,n); while (vertikal <= n) do begin while (gorizont <= m) do begin if ((vertikal = 1) or (vertikal = n)) or ((gorizont = 1) or (gorizont = m))then write('+ ') else write('- '); gorizont += 1; end; writeln(); vertikal += 1; gorizont := 1; end; readln(); end.
- Log in to post comments
- 2555 reads
vedro-compota
Sat, 10/03/2020 - 20:20
Permalink
нет решения
нет решения
_____________
матфак вгу и остальная классика =)
Dobrii_kot
Sat, 10/03/2020 - 20:20
Permalink
добавил решение
добавил решение
vedro-compota
Sat, 10/03/2020 - 20:41
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)