var a,b,n,i:longint; function gcd(x,y:longint):longint; var t:longint; begin while y>0 do begin t:=x mod y; x:=y; y:=t; end; exit(x); end; procedure nhap; begin readln(a,b,n); end; procedure giai; var i:longint; begin i:=0; while n>0 do begin inc(i); if i mod 2 = 1 then n:=n-gcd(a,n) else n:=n-gcd(b,n); end; if i mod 2 = 1 then write(0) else write(1); end; begin assign(input,'119a.inp');reset(input); assign(output,'119a.out');rewrite(output); nhap; giai; end.
* Chuyên dạy lập trình ONLINE cho học sinh THCS, THPT *.
Mọi giao lưu, trao đổi, xin liên hệ: Lê Quang Vinh - zalo: 037.803.8755.
Page: Lớp học Code Sky
Group FB1: Ôn thi HSG9 - THTB - TS10 chuyên tin
Group FB2: Học Scratch - Ôn thi Tin học trẻ bảng A
Thứ Sáu, 13 tháng 5, 2022
119A Pascal
Đăng ký:
Đăng Nhận xét (Atom)
Không có nhận xét nào:
Đăng nhận xét
Lưu ý: Chỉ thành viên của blog này mới được đăng nhận xét.