Дано трехзначное число. используя одну операцию деления нацело, вывести первую цифру данного числа(сотни)

целочисленное деление - арифметическая операция, результатом которой является целая часть частного, полученного делением одного целого числа на другое целое число. то есть деление без учета остатка.

для того чтобы получить первую цифру - надо трехзначное число разделить на 100.

например 123 если разделить целочисленно на 100 - получится 1

Составим алгоритм отбора чисел, удовлетворяющих условию . в "списке" выделяются пары соседних элементов и в каждой паре проверяется, превышает ли значение второго элемента пары значение первого элемента. если превышает, второй элемент значение второго элемента передается на выход. для списка из n элементов процесс повторятся n-1 раз. в условии есть один неприятный момент. количество элементов в списке нигде не указано. пока еще, увы, привычный большинству "школьный" паскаль не умеет работать с такими списками, а вот pascalabc.net 3.3 может, поэтому используем его. // pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   readlnstring.tointegers.pairwise.where(t-> t[1]> t[0]).select(t-> t[1]).println end. результат 1 5 2 4 3 5 4

Const n=10; var a: array[1..n] of integer;     i: integer; begin   randomize;   writeln('список: ');   for i: =1 to n do    begin     a[i]: =random(-20,20);     write(a[i],' ');   end;     writeln;   for i: =2 to n do      if a[i]> a[i-1] then write(a[i]: 4); end.список: -20 -20 -14 -18 20 12 -2 -6 -13 15    -14   20   15если ввод с клавиатуры: var a: array of integer;     i,n: integer; begin   write('n = ');   readln(n);   setlength(a,n+1);   for i: =1 to n do read(a[i]);   for i: =2 to n do    if a[i]> a[i-1] then write(a[i],' '); end.