1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая: x(2)=x(1)+1, x(3)=x(2)+2, ... x(n)=x(n-1)+n-1
В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp. Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp новым значением.
var i,k,kp:integer; begin kp:=1; for i:=1 to 10 do begin k:=kp+i-1; kp:=k; writeln(k:5, k*k:6, k*k*k:8); end; end.
1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая: x(2)=x(1)+1, x(3)=x(2)+2, ... x(n)=x(n-1)+n-1
В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp. Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp новым значением.
var i,k,kp:integer; begin kp:=1; for i:=1 to 10 do begin k:=kp+i-1; kp:=k; writeln(k:5, k*k:6, k*k*k:8); end; end.
Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D