Згадай казки, и оповідання або інші художні твори, у яких дійовим особам необхідно назвати пароль

Задача 1.

var n,a: integer;

begin

writeln('Введите 4-х значное число');

readln(n);

a := n mod 10;

n := n div 10;

write(a);

write(n)

end.

Задача 2.

var n: integer;

begin

writeln('Введите расстояние в сантиметрах: ');

readln(n);

writeln('Расстояние в метрах = ',n div 100)

end.

Задача 3.

var a,b,c: integer;

begin

writeln('Введите 1 число: ');

readln(a);

writeln('Введите 2 число: ');

readln(b);

c:=1;

if a > b then

 begin

 c := a*a*a*a;

 end

 else

   begin

 c:= b*b*b*b;

 end;

writeln('Четвертая степень наибольшего числа = ',c);

end.

1) все элементы окажутся равны 9

Объяснение:

Заполнение массива:

для i от 0 до 10 выполнить a[i] = i - 1

i = 0       a[0] = 0 - 1 = -1

i = 1        a[1] = 1 - 1 = 0

i = 2       a[2] = 2 - 1 = 1

и т.д.

Нетрудно заметить, что все элементы будут на 1 меньше своего индекса

Изменение массива:

для i от 10 до 1 выполнить a[i-1] = a[i]

i = 10       a[10-1] = a[10]       a[9] = a[10]          a[9] = 9, т.к. первоначально элемент на минус один меньше своего индекса

i = 9        a[9-1] = a[9]          a[8] = a[9]            a[8] = 9, т.к. a[9] = 9

i = 8        a[8-1] = a[8]          a[7] = a[8]             a[7] = 9, т.к. a[8] = 9

и т.д.

Нетрудно заметить, что все элементы будут равны 9