Var N: integer; A: real; { нахождение суммы ряда } function Sum(A: real; N: integer) : real; var i: integer; s: real; begin s:=A; for i:=1 to N do s:=s*(A-i*N); Result:=s; end; { конец процедуры } { основная программа } begin write('задайте N: '); readln(N); writeln('задайте A: '); readln(A); writeln('сумма ряда равна: ',Sum(A,N)); end.
Всегда высокую роль. Вот подумай сами. Вещество - это ресурс для чего либо, ресурс хотя бы минимум для выживания. Если мы не будем есть то умрем. Энергия нужна чтоб делать что-то. Когда нет сил, то ничего не сделаешь, а будешь валяться пластом. Даже чтоб есть нужна энергия, чтоб живать, глотать, переваривать и тд Информация это знание. Даже элементарно, чтоб поесть, надо знать где найти еду, как ее приготовить, что можно есть, а что нельзя и тд.
Вывод - не зависимо от этапа развития всегда желателен баланс ресурсов, энергии и информации.
Всегда высокую роль. Вот подумай сами. Вещество - это ресурс для чего либо, ресурс хотя бы минимум для выживания. Если мы не будем есть то умрем. Энергия нужна чтоб делать что-то. Когда нет сил, то ничего не сделаешь, а будешь валяться пластом. Даже чтоб есть нужна энергия, чтоб живать, глотать, переваривать и тд Информация это знание. Даже элементарно, чтоб поесть, надо знать где найти еду, как ее приготовить, что можно есть, а что нельзя и тд.
Вывод - не зависимо от этапа развития всегда желателен баланс ресурсов, энергии и информации.
A: real;
{ нахождение суммы ряда }
function Sum(A: real; N: integer) : real;
var i: integer;
s: real;
begin
s:=A;
for i:=1 to N do s:=s*(A-i*N);
Result:=s;
end;
{ конец процедуры }
{ основная программа }
begin
write('задайте N: ');
readln(N);
writeln('задайте A: ');
readln(A);
writeln('сумма ряда равна: ',Sum(A,N));
end.