blob: 983d69379c22c7107bf8e1cee7e230dd51efcb07 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
Program ch2;
(* *)
(* See ../README.md *)
(* *)
(* *)
(* Run as: fpc -och-2.out ch-2.p; ./ch-2.out < input-file *)
(* *)
uses
sysutils;
var
line: string;
a, b: integer;
i, x: integer;
begin
while not eof do begin
readln (line);
x := pos ('/', line);
a := strtoint (copy (line, 1, x - 1));
b := strtoint (copy (line, x + 1, length (line) - x));
for i := 1 to 2 do begin
if a < b then begin
b := b - a;
end
else begin
a := a - b;
end;
if (a = 0) or (b = 0) then begin
break;
end;
write (a);
write ('/');
write (b);
write (' ');
end;
writeln ('');
end
end.
|
