Var a, b, c, i:integer; s:string; begin read (s); for i:=1 to length(s) do if s[i]=' ' then delete(s,i,1); write (s); <span>end.
</span>var a, b, c, i:integer; s, k:string; begin read (s); k:='kk'; for i:=1 to length(s) do if s[i]=' ' then insert(k,s,i+1); write (s); <span>end. </span> var a, b, c, i:integer; s:string; begin read (s); for i:=1 to length(s) do if s[i]=',' then a:=i; write (a); end. Благодарность не помешает.
Program n1; var i:integer; a:array[1..12] of real; s:real; begin s:=0; for i:=1 to 12 do begin a[i]:=7-3*i; s:=s+a[i]; end; writeln(s); end.<span> </span>
Думаю так, по крайней мерее я бы сделал именно так www.adres_sajta.ru/images/foto.jpg мы просто пишем в файле page.html полный путь к файлу foto.jpg, и всё)