На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
Название темы должно быть информативным !
Прежде чем задать вопрос, воспользуйтесь Поиском. и проверьте в FAQ (ЧАВО) Паскаля
Чтобы получить вразумительный ответ, подробно опишите проблему: что надо сделать, что не получается и номер ошибки (если есть), которую выводит компилятор.
Для вставки кода ваших программ используйте, пожалуйста, кнопку СODE=pas или выпадающий список СODE для других языков (подсветка синтаксиса).
[!] Как правильно задавать вопросы | Руководство по языку B.Pascal 7 & Objects/LR | Borland Pascal. Руководство пользователя
Модераторы: volvo877
  
> Задания с олимпиады, Не смогла решить задания, попогите с решением, пожалуйста
    1. Напишите программу поиска в числовой последовательности. Х1 ... ХN наименьшего элемента имеющего последнюю цифру 7, а если таких чисел нет, то программа дожна вывести 0.

    формат входных данных: -109<Xk<109 и Х не равно 0, k=1..N. Признаком окончания ввода данных является чилос 0.

    формат выходных данных: программа выводит наименьший элемент программы оканчивающийся на 7, если таких нет, то выводит 0


    2. Напишите программу перевода натурального числа из p-ричной систему в десятичную систему счисления.

    формат входных данных: программа получает два числа: P и N , где первое число это основание системы счисления (2меньше или равно P меньше или равно9), ав торое натуральное число в данной системе счисления. кол-во цифр в числе N не превышает шести.

    формат выходных данных: программа выводит десятиричное число согласно услоаию задачи


    3.Дано натуральное десятичное число N. Напишите программу, которая находит произведение наибольшей и наменьшей цифры данного числа

    формат входных данных: программа получает десяточное число N (1меньше или равноNментше или равно109.

    формат выходных данных: программа выводит произведение наименьшей и наибольшей цифр данного числа


    4. Дана не пустая строка символов, среди которых встречаются цифры. Требуется написать прорамму, которая находит сумму нечетных цифр содержащихся в строке, если их нет, то выводит NO.

    формат входных данных: на вход программы поступают символы. Окончанием ввода данных является символ # , после которого строка не обрабатывается, строка на вхоже не больше 1000 символов.

    формат выходных данных: программа выводит сумму нечетных цифр выделенных из входной строки, если их нет, то выводит NO
      Схема первого такова:
      ExpandedWrap disabled
        posled := 0; minim:=1000*1000*1000;
        for k:=1 to N do
        begin
          if X[k]<0 Y := -X[k];
          else Y = X[k];
          if Y-10*(Y/10) = 7 then
            if X[k]<minim then
            begin
              posled := k;
              minim = X[k];
            end;
        end;
        if posled>0 then print minim;
        else print "0";
      1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script Execution time: 0,0689 ]   [ 14 queries used ]   [ Generated: 13.12.18, 11:48 GMT ]