Здравствуй!
Объяснение:
s:＝0; строго присвоено нулю(без действий +,- и так далее)
Дальше у тебя с этой переменной идет арифметика s:＝s＋k;
Все 0＋ результат полученый от переменной k
С этой переменной подругому
У тебя идет k как целочисленный счет, который находится в цикле for
От 1 до 9 включительно
Есть сам массив A и есть индеес масстива k. Как массив и индект проходит через условие т.е выполняется проверка на истинность или ложь
После того как значение достигается истинным появляемся новая переменная t присвоенная как массиву так и индексу его. В противном случае будет ложно тогда вернется в самое начало программы и идти дальше не будет.
Так же вычитается 1 в индексе k-1
Присваевается t
Подставим значение k:＝1 to 9 значит 8 -1 считается было 9, а после этого этапа 8. Проверка на условие if A[8] < A[8-1]
Отсюда следует 8＜7 ложь
Все значит нечего не выйдет на этом остановилось
При арифметике 0+8＝8 или 0+7＝7
Опять возвращаемся к условию 8＜7 ложь
Falce- ложно
8＋0＝8
2)
var i:integer;
begin
writeln('Введите цифру означающюю день недели, например 2-вторник');
readln(i);
case i of
1:writeln('Понедельник: Алгебра,Геометрия,Русский,Физ-ра');
2:writeln('Вторник Информатика,История,Изо');
3:writeln('Среда,Английский,Искусство');
else writeln('ERROR');
readln;
end;
3)
var a:integer;
begin
writeln('Введите ваш возраст');
readln(a);
if (a<7) then writeln('Дошкольник') else
if (a>7) and (a<18) writeln('Ученик') else
if (a>18) and (a<60) writeln('Рабтник') else
if (a>65) writeln('Пенсионер');
readln;
end.
Затем идёт байт, в нём 8 бит.
Потом килобайт, в нём 1024 байта.
Потом мегабайт, в нём 1024 килобайта
Потом гигабайт, в нём 1024 Мегабайт и т.д.