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

124

422

Посмотреть ответы 2

Ответы на вопрос:

kazakstanarmy

Информатика

4,6(70 оценок)

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.

Artyr2017

Информатика

4,4(68 оценок)

Функция chr возвращает символ с определенным кодом, а функция ord - код определенного символа. просто наберите в справке "char", и там будут все нужные функции.