Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- { Автор: Винарксий Евгений <[email protected]>, 112 гр.}
- program t_10_8(input,output);
- label 1;
- var s,p,q: packed array [1..8] of char;
- j,num:integer; c:char;
- begin
- s:=' ';
- read(c); i:=1;
- p:=s;
- while(c<>' ') do
- begin
- p[i]:=c;
- i:=i+1;
- read(c);
- end;
- read(c); i:=1;
- q:=s;
- while(c<>' ') do
- begin
- q[i]:=c;
- i:=i+1;
- read(c);
- end;
- read(c);
- for j:=1 to 8 do
- if (p[j]>q[j]) then
- begin
- for i:=1 to 8 do write(p[i]);
- writeln;
- goto 1;
- end
- else if (p[j]<q[j]) then
- begin
- for i:=1 to 8 do write(p[i]);
- writeln;
- goto 1;
- end
- 1 end.
Advertisement
Add Comment
Please, Sign In to add comment