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