Задача 869
Найти минимальное количество слагаемых в сумме членов ряда, при котором эта сумма станет больше 120. Кроме этого вывести на экран значение последнего слагаемого и его номер 1*1+1*2*2+1*2*3*3+1*2*3*4*4+...
procedure TForm1.Button1Click(Sender: TObject);
var
max, i, j, r, slog: Integer;
begin
max := StrToInt (Edit1.Text);
r := 0;
i := 0;
slog := 0;
while r <= max do begin
Inc (i);
slog := i;
j := 0;
while j < i do begin
Inc (j);
slog := slog * j;
end;
r := r + slog;
end;
if i = 0 then begin
Edit2.Text := '';
end
else begin
Edit2.Text := '1';
j := 1;
while j < i do begin
Inc (j);
Edit2.Text := Edit2.Text + ' * ' + IntToStr (j);
end;
Edit2.Text := Edit2.Text + ' * ' + IntToStr (i);
end;
Edit3.Text := IntToStr (slog);
Edit4.Text := IntToStr (i);
end; |