Это произведение
var p,i:integer;
begin
p:=1;
for i:=2 to 11 do
p;=p*i;
writeln (p);
end.
Это подсчёт i
var k,i:integer;
begin
k:=0;
for i:=2 to 11 do
k;=k+1i;
writeln (k);
end.
сумму не понятно чего?
Лицо!!!!!!!!!!!!!!!!!!!!!!!!
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Число элементов в массиве:');
var a:=ArrRandom(n,1,99);
Write('Исходный массив: '); a.Println;
var n1,n2:integer;
Write('Границы номеров элементов для суммы: '); Read(n1,n2);
if n1>n2 then Swap(n1,n2);
if (n1<1) or (n2>n) then Writeln('Границы выходят за пределы массива')
else Writeln('S=',a[n1-1:n2].Sum)
end.
<u>Пример</u>
Число элементов в массиве: 15
Исходный массив: 89 82 45 28 88 68 34 19 35 26 67 43 71 96 66
Границы номеров элементов для суммы: 4 9
S=272
Мне нравиться буква Б. или ребенок выучил букву Б