Программы для решения задач - в прилагаемом файле.
Const
N = 10; //Задаём размерность массива
Var
A: array[1..N] of integer; //Объявляем массив
i, B: integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i] := random(2*N+1)-N; //Заполняем массив случайными числами
Write(' ',A[i]); //и выводим его на экран
End;
WriteLn;
B := A[N]; //В переменной B будет находится искомое число
For i:= 1 to N-1 do
if (A[i] > 0)and(A[i] < B) then
B := A[i];
WriteLn('Наименьшее положитиельное чилсо: ',B);
End.
Всё достаточно просто div деление нацело(т.е. без остатка) mod (выделение остатка от деления)
a:=7;простое присвоение
b:=7*2=14;умножение
a:=0+3=3;при деление 3 на 6 остаток равен нулю и плюс 3
b:=0+14=14 при деление 3 на 14 остаток 0 и плюс 14
Вот и всё :D
38. 1 (*4) => 4 (*4)=> 16(-3) => 13(*4) => 52(-3) =>49
=> - команды
39. 5(+3)=>8(+3)=>11(^2)=>121(+3)=>124(+3)=> 127
40. 5(+1)=>6(^2)=>36(+1)=>37(+1)=>38(+1)=>39
Ученик берёт 1 носок 1 одного цвета, потом берёт второй носок. Т. к он может оказаться другого цвета, чем 1-ый, нужно взять третий носок, чтобы у него была пара одного цвета.
<span>Ответ: 3 носка</span>