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.
Var a, k: real
BEGIN
uses crt; clrscr;
write ('Vvedite 1 chlen posledovatelnosti'); readln (a);
k:=0;
while a > 0 do
begin
if (a > 10) then k := a;
write ('Vvedite ocherednoy chlen posledovatelnosti'); readln (a);
end;
writeln (k);
END.
«Си# — простой, современный, объектно-ориентированный язык с безопасной системой типов, происходящий от Си и Си++. Си# будет удобен и понятен для программистов, знающих Си и Си++. Си# сочетает продуктивность Visual Basic<span> и мощность Си++.» Такими словами начинается описание Си#. </span>
На самом деле любой пункт верный, но в твоём случае это 1