Программа работает
var
<span>n,</span><span>i,j,</span><span>s :integer;
</span>begin
Write('введите число');
Readln(n);
for i:=1 to n
do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);end;
if s=1 then Writeln(i);
end;end.
<span>
П.С. программа находит все простые числа до заданного тобой числа</span>
Если считать, что вместо A[i]=1+1 написано A[i]=i+1,
а вместо A[i]:=A[1-1] написано <span>A[i]:=A[i-1] (что скорее всего, иначе нужного ответа вообще нет), то после первого цикла получится массив
1 2 3 4 5 6 7 8 9 10 11,
а после второго - 1 1 1 1 1 1 1 1 1 1 1
Ответ: 3)
</span>
Используй муактивити на касания мыши в скрипте.
Самое 1 не подходит , ибо остальные это продукты майкрософт офис, 2 для презентаций, 3 это ворд для текстовых документов , а 4 это для работы с базой данных
Var f: real; x :integer;
begin //Ввод writeln ('введите x'); readln (x);
//решение
f:= x-(Power(x,3)/6)+(Power(x,5)/120)-(Power(x,7)/5040)+(Power(x,9)/362880)-(Power(x,11)/39916800)+(Power(x,13)/6227020800); {f:=Power(x,2);} //вывод writeln ('f = ', f); end.