Задача 4 урок 14
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках).
var n,m,i: integer; procedure Flag(a,b: integer); begin repeat if Odd(a) then begin for i:=1 to b do write('- '); writeln(); a-=1; end else begin for i:=1 to b do write('+ '); writeln(); a-=1; end; until(a<1); end; begin readln(n,m); for i:=1 to m do begin Flag(n,m); writeln(); end; readln(); end.
- Log in to post comments
- 553 reads