Вам необходимо преобразовать множество старых программ для новой версии компилятора. Для этого необходимо заменить "->" на "." везде, кроме

+ 0 -

ееуу

05 окт. 2013 г., 15:09:20 (10 лет назад)

var  sFile: array of string := System.IO.File.ReadAllLines('in.txt');
  sComm, str2: string;
begin
  foreach str: string in sFile do
  begin
    sComm := System.Text.RegularExpressions.Regex.Matches
      (str, '.*(//.*)').Item[0].Groups[1].Value;
    System.IO.File.AppendAllText('out.txt', String.Format('{0}{1}', sComm.Insert(0, System.Text.RegularExpressions.Regex.Replace(str, '(.*)//.*', '$1').Replace('->', '.')), System.Environment.NewLine));
  end;
end.

+ 0 -

Nazifat9999

05 окт. 2013 г., 16:30:45 (10 лет назад)

var a,b,c:real; i,n:integer;
begin
readln(n);
if n>0 then begin
if n=0 then writeln;
for i:=0 to n-2 do begin readln(a,b,c);
if (a+b>=c)and(b+c>=a)and(a+c>=b) then writeln('yes')
else writeln('no');
end;
end;
writeln
end.

+ 0 -

Alsinka

05 окт. 2013 г., 18:16:12 (10 лет назад)

ошибка у меня через каждые три цифры выводит и цикл должен повторяться пока значение не равно 0