• Помогите, пожалуйста, написать программу сравнения двух строк. Программа должна читать строки из файла и сравнивать нечетные и четные строки, которые следуют друг за другом.

Ответы 3

  • и в нем же присутствуют типичные ошибки (пропущенные ; и т.п.).
  • С чего это Вы взяли, что все это нужно делать? В задании ничего подобного не сказано. что до "типичных ошибок" - это безответственное заявление с Вашей стороны. В реале за подобную наглую писанину я обычно бью по лицу, так что Вам повезло.
  • var  f:text;  s1,s2:string;begin  Assign(f,'file.txt');  Reset(f);  while not eof(f) do    begin    Readln(s1);    if not eof(f) then      begin      Readln(s2);      if s1<>s2 then        begin        Writeln(s1);        Writeln(s2);        Writeln        end      end    end;  Close(f)end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years