vinarsky_evgeny

Untitled

Nov 22nd, 2015
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.73 KB | None | 0 0
  1. { Автор: Винарксий Евгений <[email protected]>, 112 гр.}
  2. program t_10_8(input,output);
  3. label 1;
  4. var s,p,q: packed array [1..8] of char;
  5.     j,num:integer; c:char;
  6. begin
  7.   s:='        ';
  8.   read(c); i:=1;
  9.   p:=s;
  10.   while(c<>' ') do
  11.     begin
  12.       p[i]:=c;
  13.       i:=i+1;
  14.       read(c);
  15.     end;
  16.   read(c); i:=1;
  17.   q:=s;
  18.   while(c<>' ') do
  19.     begin
  20.       q[i]:=c;
  21.       i:=i+1;
  22.       read(c);
  23.     end;
  24.   read(c);
  25.     for j:=1 to 8 do
  26.      if (p[j]>q[j]) then
  27.       begin
  28.         for i:=1 to 8 do write(p[i]);
  29.         writeln;
  30.         goto 1;
  31.       end
  32.      else if (p[j]<q[j]) then
  33.       begin
  34.         for i:=1 to 8 do write(p[i]);
  35.         writeln;
  36.         goto 1;
  37.       end
  38. 1 end.
Advertisement
Add Comment
Please, Sign In to add comment