1)55;
2)165;
3)147;
4)16;
5)32;
6)19
7)77;
8)36;
9)80;
10)65;
Объяснение:
Сумма арифметической прогрессии sₙ = (a₁ + aₙ) * n / 2;
Формула n-го члена арифметической прогрессии: aₙ = a₁ + d (n - 1);
Отсюда: n = (aₙ - a₁ + d) / d;
1)
В цикле переменная k принимает значения: 2, 3 , 4, ... 11;
Всего итераций цикла: n =(11 - 2 + 1) / 1 = 10.
В цикле к переменной s прибавляется k => посчитаем сумму арифметической прогрессии:
aₙ = 10, т.к. при 11 цикл прервется.
(1 + 10) * 10/2 = 55.
2)
В цикле переменная k принимает значения: 3, 6 , 9, ... 30;
Всего итераций цикла: (30 - 3 + 3) / 3 = 10.
В цикле к переменной s прибавляется k => посчитаем сумму арифметической прогрессии:
(3 + 30) * 10/2 = 165.
3)
В цикле переменная k принимает нечетные значения: 3, 5 , 7, ... 25;
Всего итераций цикла: n = (25 - 3 + 2) / 2 = 12.
В цикле к переменной s прибавляется k => посчитаем сумму арифметической прогрессии и прибавим начальное значение s = 3:
aₙ = 23, т.к. при 25 цикл прервется.
(1 + 23) * 12 / 2 + 3 = 147.
4)
s k
4 4
8 6
14 8
22 10
32 12
44 14
58 16
5)
s k
0 4
4 8
12 12
24 16
40 20
60 24
84 28
112 32
112 32
6)
s k
4 4
11 7
21 10
34 13
50 16
69 19
7)
В цикле переменная k принимает четные значения: 2, 4, 6, ... 16;
Всего итераций цикла: (16 - 2 + 2) / 2 = 8.
В цикле к переменной s прибавляется k => посчитаем сумму арифметической прогрессии и прибавим начальное значение s = 5:
(2 + 16) * 8/2 + 5 = 77.
8)
s k
0 3
6 6
18 9
36 12
9)
s k
0 4
8 8
24 12
48 16
80 20
10)
s k
1 4
9 8
25 12
49 16
s + k = 49 + 16 = 65.
1-Индексом элемента называется номер элемента в массиве
2-Массив данных имеет общее имя и один тип
3-Массив-это совокупность однотипных данных, хранящихся в последовательных ячейках памяти
4-В записи D[4]=3.5, D обозначает имя массива
5-можно назвать этот ряд:2.3, 5.7, 10.89.
6-правильно описание массива:D: array[1..5] of real
7-команда Randomize
8-Для заполнения массива путем ввода чисел с клавиатуры мы используем оператор Readln
9-Выводит N значений массива на экран
10-Sum:=sum+a(i)
11-Выбирает минимальный элемент массива
12-условие:If a[i]>0 then k:=k+1
13-значение суммы после выполнения следующего фрагмента программы равн.25
14-знач.суммы 21
15-знач.переменн.9
16-нельзя определить значение переменной
17-знач>перемен.6
18-знач.перемен. 2
19-знач.перемен.12
20-знач.перемен.6
А что тут собственно понимать?
Расстояние от начала координат до точки - фактически, гипотенуза треугольника с катетами, равными отрезкам по осям координат. Обычная теорема Пифагора. Более того, можно сравнивать не гипотенузы, а их квадраты, чтобы не пользоваться вычислением квадратного корня.
OM² = OMx²+OMy² (см. вложение)
Во втором вложении - тестовый файл in.txt. Поскольку ответ выводится в этот же файл, для повторного запуска программы файл становится непригоден, в связи с чем следует хранить его исходную копию.
PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!begin
var a := ReadAllText('in.txt').ToReals.Batch(2).ToArray;
var i := a.Select(t -> Sqr(t.First) + Sqr(t.Last)).ToArray.IndexMax;
var f := OpenAppend('in.txt');
Writeln(f, NewLine, 'ответ', NewLine, a[i].First, ', ', a[i].Last,
NewLine, Sqrt(Sqr(a[i].First) + Sqr(a[i].Last)));
f.Close
end.