В компютере много разных приложеней ведь, там будет много разного. Paint -это устоновленое приложение на компютере, где рисцют своими руками. Документы- там есть много папок где очень может быть важная информация. Изоброжение-там хроняться альбомы с фотографиями. Музыка-в это приложение кочают разную музыку. А ещё на робочем стале есть приложение для того чтобы удалять то что вам не нужно его ещё называют,, Карзиной,, что бы включить компютер надо нажать на большу кнопку под нозванием,, пуск,, она находиться в,блоке,, а что бы его надо закрыть надо нажимать в,, завершить работу,,
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]);
В компютере много разных приложеней ведь, там будет много разного.
Paint -это устоновленое приложение на компютере, где рисцют своими руками. Документы- там есть много папок где очень может быть важная информация. Изоброжение-там хроняться альбомы с фотографиями. Музыка-в это приложение кочают разную музыку. А ещё на робочем стале есть приложение для того чтобы удалять то что вам не нужно его ещё называют,, Карзиной,, что бы включить компютер надо нажать на большу кнопку под нозванием,, пуск,, она находиться в,блоке,, а что бы его надо закрыть надо нажимать в,, завершить работу,,