Задача 3 Урок 13.2
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида
(с рамкой по краям):+ + + + + + + - - - - + + - - - - + + + + + + +
var n, m, i, j: integer; begin i := 0; j := 0; writeln ('Vvedite visotu flaga'); readln(n); writeln ('Vvedite shirinu flaga'); readln(m); while(i < n) do begin while(j < m) do begin if (j = 0) or (j = m - 1) or (i = 0) or (i = n - 1) then write('+', ' ') else write('-', ' '); j := j + 1; end; writeln(); j := 0; i := i + 1; end; end.
КОНСОЛЬ
Vvedite visotu flaga 5 Vvedite shirinu flaga 6 + + + + + + + - - - - + + - - - - + + - - - - + + + + + + +
- Log in to post comments
- 883 reads
vedro-compota
Sun, 11/07/2021 - 13:01
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)