Задача 3 Урок 14.2
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках)
var a1,b:integer; procedure podprog(); var a1,b:integer; procedure podprog(); var a,b:integer; begin a:=1; b:=10; repeat if (a1 mod 2)=1 then write('-') else write('+'); a+=1; until (a>b); end; begin a1:=1; b:=4; repeat podprog(); writeln(); a1+=1; until (a1>b); readln(); end.
Вывод консоли:
---------- ++++++++++ ---------- ++++++++++
- Log in to post comments
- 52 reads