Напишите процедуру, которая принимает один параметр – натуральное число N, – и выводит на экран прямоугольник длиной N и высотой 3 символа.
Answers & Comments
pacixor
Procedure Rectangle(Width: integer); var i: integer; begin for i := 1 to Width do write('*'); writeln; if width <> 1 then write('*'); writeln('*':Width-1); for i := 1 to Width do write('*'); end;
var N: integer; begin write('N = '); readln(N); Rectangle(N); end.
Answers & Comments
var i: integer;
begin
for i := 1 to Width do write('*');
writeln;
if width <> 1 then write('*');
writeln('*':Width-1);
for i := 1 to Width do write('*');
end;
var
N: integer;
begin
write('N = ');
readln(N);
Rectangle(N);
end.
*
**
*