Помогите, пожалуйста, написать программу сравнения двух строк. Программа должна читать строки из файла и сравнивать нечетные и четные строки, которые следуют друг за другом.
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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
