Program test; function s(n,a:integer) : real; var i,p:integer; begin p:=1; if n>1 then begin for i:=1 to n do p:=p*a; s:=p; end;
end; function sum(n:integer) : real; var i:integer; sum1:real; begin for i:=1 to n do begin sum1:=sum1+(2/3)*s(i,n); end; sum:=sum1; end; var n:integer; begin write('Введите количество чисел '); readln(n); writeln(sum(n)); end.
1)Значение величины как и в информатике и математике одинаковы. Величина делится на Постоянные и Переменные. 1. Постоянной называется величина, значение которой не изменяется в процессе выполнения программы. 2. Переменной называется величина, значение которой изменяется в процессе выполнения программы.
2) Существуют три основных типа величины 1.Числовое 2.Символьный 3.Логический.
3) Программа присваивания записывается таким образом := (В языке Pascal).
4) Программа ввода записывается таким образом read(); или readln();-полностью readline(); (В языке Pascal).
5) 1.Программа вывода записывается таким образом write('Любая надпись'); или writeln('Любая надпись'); полностью writeline('Любая надпись'); 2. Программа write или writeln выводит канцоль или в окно вывода то что ты написал в write или в writeln.
1)Значение величины как и в информатике и математике одинаковы. Величина делится на Постоянные и Переменные. 1. Постоянной называется величина, значение которой не изменяется в процессе выполнения программы. 2. Переменной называется величина, значение которой изменяется в процессе выполнения программы.
2) Существуют три основных типа величины 1.Числовое 2.Символьный 3.Логический.
3) Программа присваивания записывается таким образом := (В языке Pascal).
4) Программа ввода записывается таким образом read(); или readln();-полностью readline(); (В языке Pascal).
5) 1.Программа вывода записывается таким образом write('Любая надпись'); или writeln('Любая надпись'); полностью writeline('Любая надпись'); 2. Программа write или writeln выводит канцоль или в окно вывода то что ты написал в write или в writeln.
function s(n,a:integer) : real;
var i,p:integer;
begin
p:=1;
if n>1 then begin
for i:=1 to n do p:=p*a;
s:=p;
end;
end;
function sum(n:integer) : real;
var i:integer;
sum1:real;
begin
for i:=1 to n do begin
sum1:=sum1+(2/3)*s(i,n);
end;
sum:=sum1;
end;
var
n:integer;
begin
write('Введите количество чисел ');
readln(n);
writeln(sum(n));
end.