Вложенные циклы

  • Автор темы the Rock
  • Дата начала
Статус
Закрыто для дальнейших ответов.
T

the Rock

#1
Было задание
Вывести на экран:
987654321
9...2
9..3
...
9
Я написал прогу:
i,j:integer;
begin
for i:=1 to 9 do
begin
for j:=9 downto i do
write(j);
writeln;
end;
end.
Хмм... ну вобщем неправильно. Препод говорит, чтобы обязательно было:
987654321
_98765432
__9876543
и т.д. т.е. должная равняться по правому столбику
Плиз, подскажите, как это сделать
 
Z

zubr

#2
Код:
i,j:integer;
s:string[9];

begin
s:='';
for i:=1 to 9 do
begin
for j:=9 downto i do
write(j);
writeln;
s:=s+' ';
write(s);
end;

end.
 
Статус
Закрыто для дальнейших ответов.