Написать программу в паскале, которая вычисляет сумму: 1+(1/2)+(1/3)+...+(1/n)
(параметр цикла будет являться значением знаменателя)

Question

Информатика: Написать программу в паскале, которая вычисляет сумму: 1+(1/2)+(1/3)+...+(1/n) (параметр цикла будет являться значением знаменателя)

Kirill4421 · Accepted Answer

Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится

Написать программу в паскале, которая вычисляет сумму: 1+(1/2)+(1/3)+...+(1/n) (параметр цикла будет являться значением знаменателя)

MOGZ ответил

Написать программу в паскале, которая вычисляет сумму: 1+(1/2)+(1/3)+...+(1/n)
(параметр цикла будет являться значением знаменателя)