Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Vvod_Vivod;
- var
- i, n,z: integer;
- f, t: text;
- l, k: string;
- begin
- assign(t, 'd:\input.txt');
- reset(t);
- read(t, l);
- close(t);
- assign(f, 'output.txt');
- reset(f);
- read(f, k);
- close(f);
- if length(l)<length(k) then
- repeat
- l:=l+' ';
- until(length(l)=length(k));
- if length(l)>length(k) then
- repeat
- k:=k+' ';
- until(length(k)=length(l));
- for i:=1 to length(l) do
- begin
- if not(l[i] = k[i]) then
- begin
- n := i;
- break;
- end
- else n:=0;
- end;
- If n>0 then
- writeln('Отличие с ', n:2, ' элемента ')
- else writeln('Отличий нет');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement