1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем GS3, 12 ноя 2011.

  1. GS3

    GS3 Гость

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

    isqoff Гость

    Репутация:
    0
    Код:
    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 допишешь сам
     
Загрузка...

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