№1 ответ: 133
№2 ответ: 40
№3 ответ: 60
№4 ответ: 1
№5 ответ: 6
Объяснение:
№1 Цикл "s:=s+12;" повторяется благодаря функции "for k:=1 to 11 do" и тем самым к переменной S мы 11 раз прибавляем 12. 1+11*12=133
№2 То же самое, но мы к переменной 5 раз (18-13) прибавляем 8. 8*5=40
№3 К переменной S сперва прибавляем переменную k 3 раза. Переменная k получает номер цикла, то есть в первый раз мы прибавляем 1, потом 2, потом уже 3. В конце программы просто умножаем на 10. S=(1+2+3)*10.
№4 Здесь для совершения цикла необходимо выполнить условие, а именно нужно, чтобы переменная i была больше 1, но из-за того что i у нас изначально равна 1, цикл "y := y + 1/i; i := i - 1;" у нас не выполняется, а значит y=1
№5 В цикле repeat все действия выполняются сразу, но выход из цикла осуществится только при том условии, если i будет больше 5. К концу цикла у нас i будет равен 6, а значит цикл закончится и y будет равен 6 (y:=y+i).
begin
var m:=ReadInteger('Количество элементов в массиве А (m):');
var n:=ReadInteger('Количество элементов в массиве B (n):');
var k:=ReadInteger('Позиция вставки k (1<k<m):');
if (k>1) and (k<m) then begin
var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
end
else Writeln('Вы нарушили условие 1<k<m')
end.
Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26