Напишите программу вычисления выражения: S=x3+x5+xn . Используйте функцию для возведения числа в степень function VozvStep(a,k:integer):integer; var i:integer; begin result:=1; for i:=1 to k do result:=result*a; vozvstep:=result; end;
Свойства многострочного текстового поля. Для ввода и вывода значений элементов одномерного массива можно воспользоваться многострочным полем (компонент типа ТМеmо), который можно разместить на форме так же, как и другие компоненты. Среди свойств этого компонента есть много таких, которые имели ранее рассмотренные нами компоненты: Name, Color, Font, Enabled, Visible, Height, Width, Top, Left и in. Среди свойств, которых не было предыдущие компоненты, рассмотрим следующие: ScrollBars (англ. Scroll - прокрутка, bars - прямоугольные полосы) - значение этого свойства определяет наличие или отсутствие на этом компоненте полос прокрутки (горизонтальной - ssHorizontal, вертикальной - ssVertical обоих - ssBoth) для просмотра текста, который выходит за пределы компонента; ReadOnly (англ. Read - читать, only - только) - значение этого свойства определяет возможность редактирования строк компонента: False - можно редактировать, True - нельзя (только для чтения) Lines (англ. Lines - линии, строки) - значением этого свойства является набор значений, расположенных в строках этого компонента; каждая строка имеет номер, нумерация строк начинается с 0; Lines.Count (англ. Count - подсчет) - значение этого свойства равно количеству заполненных данными строк компонента; отметим, что это свойство отсутствует в списке свойств окна Object Inspector. Тогда при сохранении проекта эти значения также будут сохранены и автоматически появятся в этом поле после запуска проекта на выполнение.
см.объяснение
Объяснение:
program prog;
var sum,x,n:integer;
function VozvStep(a,k:integer):integer;
var i,res:integer;
begin
res:=1;
for i:=1 to k do res:=res*a;
VozvStep:=res;
end;
begin
Writeln('Enter x,n: ');
readln(x,n);
sum:=VozvStep(x,5)+VozvStep(x,3)+VozvStep(x,n);
writeln('result = ',sum);
end.