ПОМОГИТЕ СРОЧНО НУЖНО!Напечатать числа в виде следующей таблицы:8) 6 6 6 6 6 7 7 7 7 8 8 8 9 9 1013)0 1 2 3 4 0 1 2 3 0 1 2 0 1 0
ПОМОГИТЕ СРОЧНО НУЖНО!
Напечатать числа в виде следующей таблицы:
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
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы