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