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