Элементарная Задача По Pascal

Тема в разделе "Pascal and Delphi", создана пользователем GS3, 12 ноя 2011.

  1. GS3

    GS3 Гость

    Репутация:
    0
    Здравствуйте!
    Помогите решить простую задачу на ЯП Pascal.
    Условие:
    Есть 5-значное число 28936. Нужно первые две и последние две цифры поменять местами:
    а) симметрично, должно получится так 63982
    б) Блочно (не совсем верное название), должно получится так 36928.
    при этом использовать div и mod.
     
  2. isqoff

    isqoff Гость

    Репутация:
    0
    Код (Delphi):
    uses crt;
    var a:integer;
    procedure data(data:integer;ind:char);
    var a,b,c,itog:integer;
    begin
    case(ind)of
    //28936
    'b': begin
    a:=28936 div 1000;
    b:=(28936 mod 100)*1000;
    c:=(28936 div 100 mod 10)*100;
    itog:=b+c+a;
    write(itog);
    end;
    's': begin

    end;
    end;

    end;
    BEGIN
    data(28936,'b');
    END.
    s в case допишешь сам
     
Загрузка...
Похожие Темы - Элементарная Задача По
  1. petiablack
    Ответов:
    0
    Просмотров:
    53
  2. disub
    Ответов:
    1
    Просмотров:
    158
  3. Kazua
    Ответов:
    1
    Просмотров:
    163
  4. Rina
    Ответов:
    0
    Просмотров:
    107
  5. School_Information

    Решите Задача

    Ответов:
    2
    Просмотров:
    238

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