Создавать,текст,вставлять,изменять шрифт,создавать таблицы и схемы
Программа вычисляет элементы ряда, который можно задать формулой общего члена следующей формулой: An = (n*n!)/2^(n), где 2^(n) - это 2 в степени n.
Вот так?
Program solution;
Uses Crt;
Var s : byte;
res, fact : word;
Begin
fact := 1;
res := 0;
For s := 1 to 4 do
Begin
res := res + s + fact;
fact := fact * (s + 1);
End;
Write(res);
ReadKey;
End.
Procedure s_v(r:real; var s,v:real);
begin
s:=4*Pi*r*r;
v:=4/3*Pi*r*r*r;
end;
var a,b:real;
begin
s_v(5,a,b);
writeln('r=5, S=',a:5:2,' V=',b:5:2);
s_v(10,a,b);
writeln('r=10, S=',a:5:2,' V=',b:5:2);
s_v(15,a,b);
writeln('r=15, S=',a:5:2,' V=',b:5:2);
<span>end.</span>