Задача 3 Урок 14.2
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):
- - - - - - + + + + + + - - - - - - + + + + + + - - - - - --- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.
program u142z3; var n,m,i:integer; procedure stroka(c,d:integer); var j:integer; begin for j:=1 to c do if (d mod 2=1) then write('-') else write('+'); writeln(); end; begin writeln('vvedite N u M'); readln(n,m); for i:=1 to m do stroka(n,i); readln(); end.
- Log in to post comments
- 295 reads