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

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

  1. GS3

    GS3 Гость

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

    isqoff Гость

    Код (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. Янчик
    Ответов:
    0
    Просмотров:
    479
  2. TrishaRay
    Ответов:
    1
    Просмотров:
    778
  3. elzim
    Ответов:
    0
    Просмотров:
    929
  4. ShaoKahn
    Ответов:
    0
    Просмотров:
    1.117
  5. eremin-sanek
    Ответов:
    3
    Просмотров:
    1.105

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