ПОМОГИТЕ СРОЧНО НУЖНО!
Напечатать числа в виде следующей таблицы:
8) 6 6 6 6 6
7 7 7 7
8 8 8
9 9
10
13)0 1 2 3 4
0 1 2 3
0 1 2
0 1
0
Ответы
Ответ дал:
0
begin
var i, j: byte;
for i := 6 to 10 do
begin
for j := 0 to 10 - i do
write(i, ' ');
writeln();
end;
end.
begin
var i, j: byte;
for i := 0 to 4 do
begin
for j := 0 to 4 - i do
write(i, ' ');
writeln();
end;
end.
var i, j: byte;
for i := 6 to 10 do
begin
for j := 0 to 10 - i do
write(i, ' ');
writeln();
end;
end.
begin
var i, j: byte;
for i := 0 to 4 do
begin
for j := 0 to 4 - i do
write(i, ' ');
writeln();
end;
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад