Задать вопрос
6 октября, 01:32

Pascal. НЕобходимо разобрать перед экзаменом.

С клавиатуры вводится последовательность n (n - количество) натуральных чисел. Определить наименьшее тех из них, у которых пред последняя цифра 8.

Мне нужна готовая работающая программа для Паскаля, словесно ответ и так знаю.

+1
Ответы (1)
  1. 6 октября, 04:32
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Pascal. НЕобходимо разобрать перед экзаменом. С клавиатуры вводится последовательность n (n - количество) натуральных чисел. Определить ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы