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

Тема в разделе "Delphi - FAQ", создана пользователем the Rock, 12 июн 2007.

Статус темы:
Закрыта.
  1. the Rock

    the Rock Гость

    Было задание
    Вывести на экран:
    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
    и т.д. т.е. должная равняться по правому столбику
    Плиз, подскажите, как это сделать
     
  2. zubr

    zubr Гость

    Код (Text):
    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.
     
Загрузка...
Похожие Темы - Вложенные циклы
  1. Marinka
    Ответов:
    2
    Просмотров:
    1.082
  2. slavon-x86
    Ответов:
    1
    Просмотров:
    3.028
  3. morpheus
    Ответов:
    0
    Просмотров:
    3.349
  4. Maddy101d
    Ответов:
    3
    Просмотров:
    1.015
  5. Homka
    Ответов:
    12
    Просмотров:
    2.880
Статус темы:
Закрыта.

Поделиться этой страницей