Задача 2 Урок 13.2
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках, используйте циклы while):
- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -
var m,i: integer; begin m := 1; while (m < 6) do begin i := 1; while (i < 5) do begin if ((m mod 2)=0) then write('+ ') else write('- '); i := i + 1; end; writeln(); m := m + 1; end; readln(); end.
- Log in to post comments
- 675 reads