Выдает ошибку program1.pas(5) : встречено 'to', а ожидался оператор посмотри , что не так в пятой строке. program n1; var e, a: real; n, i: integer; begin write('n='); readln(n); e: =1; to n do begin a: =a/i; e: =e+a end; writeln('e=', e) end.
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 и конечно описка выделенная ранее, как на нее только компилятор не матерится
Var s,s1:string; a,b:array[1..100]of integer; i,n,x,k:integer; begin readln(s); readln(s1); n:=1; if length(s)>length(s1) then x:=length(s) else x:=length(s1); for i:=1 to length(s) do begin val(copy(s,i,1),k,n); a[i+x-length(s)]:=k; end; for i:=1 to length(s1) do begin val(copy(s1,i,1),k,n); b[i+x-length(s1)]:=k; end; for i:=1 to length(s) do a[i]:=a[i]+b[i]; for i:=length(s) downto 2 do begin a[i-1]:=a[i-1]+a[i]div 10; a[i]:=a[i]mod 10; end; for i:=1 to length(s) do write(a[i]);
Var E, a: Real;
N, i: Integer;
Begin
Write('N='); ReadLn(N);
E:=1;
For i:=1 To N Do
Begin a:=a/i;
E:=E+a
End;
WriteLn('E=', E)
End.