1. Вывести все числа от 100 до 200 в обратном порядке 2. Вычислить произведение нечетных чисел из интервала 1.. n 3. Найти сумму ряда 2+4+6+ …+ n (n – целое число)
Для облегчения выкладок разделим эти 64 множителя на шесть групп по 10 двоек в каждой и одну последнюю группу из четырех двоек. Произведение 10 двоек, как легко убедиться, равно 1024, а четырех двоек— 16. Значит, искомый результат равен 1024 X 1024 X 1024 X 1024 X 1024 X 1024 X 16.Перемножив 1024 X 1024, получим 1 048 576.Теперь остается найти 1048 576X1048 576X1048 576X16, отнять от результата единицу — и нам станет известно искомое число зерен: 18 446 744 073 709 551615. Известно, что кубический метр пшеницы вмещает около 15 миллионов зерен. Значит, награда шахматного изобретателя должна была бы занять объем примерно в 12 000 000 000 000 куб. м. Кстати, это геометрическая прогрессия и ее нужно было кидать в раздел "математика".
Const n=15; var a:array[1..n] of integer; i,s:integer; sr:real; begin Randomize; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('Среднее арифметическое = ',sr:6:2); writeln('Номера элементов, больших среднего арифметического:'); for i:=1 to n do if a[i]>sr then write(i:3); writeln; end.
алг
| Язык программирования Кумир 2.1.0 от 5 мар 2010 г.
нач
цел n, s, p, i
нц для i от 200 до 100 шаг -1
вывод i, " "
кц
s := 0
p := 1
вывод нс, нс, "Введите число n: "
ввод n
нц для i от 1 до n шаг 2
p := p * i
кц
нц для i от 0 до n шаг 2
s:=s+i
кц
вывод "ответ: p = ", p, "; s = ", s
кон
Объяснение:
Результат на картинке