Задание 2 Урок 13.2
Primary tabs
Задание 2 Урок 13.2
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках, используйте циклы while): см.урок
- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -
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 mod 2) = 0) then write('+ ') else write('- '); gorizont += 1; end; writeln(); vertikal += 1; gorizont := 1; end; readln(); end.
- Log in to post comments
- 1359 reads
vedro-compota
Sat, 10/03/2020 - 20:18
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)