1. Уважаемые участники и гости, 19 октября codeby будет работать в режиме "Только чтение". Регистрация новых участников будет закрыта. 20 октября портал продолжит работу в прежнем режиме.

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

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

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

    the Rock Гость

    Репутация:
    0
    Было задание
    Вывести на экран:
    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 Гость

    Репутация:
    0
    Код:
    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.172
  2. slavon-x86
    Ответов:
    1
    Просмотров:
    3.128
  3. morpheus
    Ответов:
    0
    Просмотров:
    3.497
  4. Maddy101d
    Ответов:
    3
    Просмотров:
    1.107
  5. Homka
    Ответов:
    12
    Просмотров:
    3.500
Статус темы:
Закрыта.

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