k_vychodilova

2 stejne

Oct 25th, 2020
1,004
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program HelloWorld(output);
  2. var i, j,N: integer;
  3.  R: array [1,2,3,4,5,6] of integer;
  4.  Q: boolean;
  5. begin
  6.   N:=6;
  7.   Q:=False;
  8.   i:=0;
  9.   j:=0;
  10.   repeat j:=j+1; i:=j+1;
  11.         while not i=N do if R[j]=R[i] then Q:=True; i:=i+1;
  12.  
  13.   until i=(N-1);
  14.   writeln(i,j);
  15. end.
  16.  
RAW Paste Data