Advertisement
smay

Untitled

Feb 2nd, 2016
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.66 KB | None | 0 0
  1. program Vvod_Vivod;
  2.  
  3. var
  4.  
  5.   i, n,z: integer;
  6.   f, t: text;
  7.   l, k: string;
  8.  
  9. begin
  10.   assign(t, 'd:\input.txt');
  11.   reset(t);
  12.   read(t, l);
  13.   close(t);
  14.   assign(f, 'output.txt');
  15.   reset(f);
  16.   read(f, k);
  17.   close(f);
  18. if length(l)<length(k) then
  19. repeat
  20. l:=l+' ';
  21. until(length(l)=length(k));  
  22. if length(l)>length(k) then
  23. repeat
  24. k:=k+' ';
  25. until(length(k)=length(l));  
  26.     for i:=1 to length(l) do
  27.     begin
  28.       if not(l[i] = k[i]) then
  29.       begin
  30.         n := i;
  31.         break;
  32.       end
  33.       else n:=0;
  34.     end;
  35.     If n>0 then
  36.   writeln('Отличие с ', n:2, ' элемента ')
  37.   else writeln('Отличий нет');
  38. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement