Напишите процедуру, которая принимает один параметр – натуральное число N, – и выводит на экран прямоугольник длиной N и высотой 3 символа.
Ответы
Ответ дал:
0
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.
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.
Приложения:
![](https://st.uroker.com/files/d92/d92ce483ae2943713a9b75346b6f16e0.png)
Ответ дал:
0
при запуске от N = 1
*
**
*
*
**
*
Ответ дал:
0
Так задумано?
Ответ дал:
0
Поменял
Ответ дал:
0
Спасибо
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад