Question

Pascal. НЕобходимо разобрать перед экзаменом. С клавиатуры вводится последовательность n (n - количество) натуральных чисел. Определить наименьшее тех из них, у которых пред последняя цифра 8. Мне нужна готовая работающая программа для Паскаля, словесно ответ и так знаю.

Answer 1

Var
    d, min, i, n: integer;

begin
    write('Введите N=');
    readln(n);
   
    write('Введите число ');
    readln(d);
    min := d;
   
    for i := 2 to n do
    begin
        write('Введите следующее число ');
        readln(d);
        if (d mod 100 div 10 = 8) and ((min mod 100 div 10 <> 8) or (min > d)) then
            min := d;
    end;
   
    if (min mod 100 div 10 <> 8) then
        writeln('Не найдено')
    else
        writeln(min);
end.

Answer 2

Решение задачи на Паскале

Для решения данной задачи на Паскале, можно использовать следующий алгоритм:

1. Считать количество чисел в последовательности `n` с клавиатуры. 2. Инициализировать переменную `minNumber` значением, которое гарантированно будет больше любого возможного числа в последовательности (например, можно присвоить ей значение 999999). 3. В цикле от 1 до `n` считывать числа с клавиатуры и проверять, является ли последняя цифра числа равной 8. 4. Если последняя цифра числа равна 8 и число меньше `minNumber`, то обновить значение `minNumber` на это число. 5. После окончания цикла, вывести наименьшее число, у которого последняя цифра равна 8.

Пример кода на Паскале:

program FindMinNumber;

var
  n, i, number, minNumber: integer;

begin
  write('Введите количество чисел в последовательности: ');
  readln(n);

minNumber := 999999;

for i := 1 to n do
  begin
    write('Введите число: ');
    readln(number);

if (number mod 10 = 8) and (number < minNumber) then
      minNumber := number;
  end;

writeln('Наименьшее число с последней цифрой 8: ', minNumber);
end.

Пожалуйста, обратите внимание, что в данном примере используется цикл `for` для считывания чисел и проверки условия. Также, переменная `minNumber` инициализируется значением 999999, чтобы гарантировать, что первое найденное число с последней цифрой 8 будет меньше этого значения.

Примечание: Предоставленный код является примером и может быть доработан или оптимизирован в зависимости от требований и контекста задачи.

Надеюсь, это поможет вам подготовиться к экзамену по Паскалю! Если у вас возникнут еще вопросы, не стесняйтесь задавать.