1. Tìm ƯCLN của 2 số x, y theo thuật toán, Euclide
Lặp: * Lấy x mod y
* x:=y
* y:=x mod y
Cho đến khi y=0; ƯCLN (x,y) là x
Viết CT tìm ƯCLN của 2 số nhập từ bàn phím.
MỌI NGƯỜI GIÚP VỚI NHA MỐT LÀ KT 1T RÙI
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
H
16 tháng 12 2020
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
TN
31 tháng 12 2017
đây chỉ là bài ví dụ cho bạn áp dụng nhé:
var i,j,k,n,m:longint; f1,f2:text; S,St:string; function ktsnt(n:qword):boolean; var k:qword; begin ktsnt:=false; k:=2; if n<2 then exit; if n=2 then ktsnt:=true; while k*k <= n do begin if n mod k = 0 then exit; inc(k); end; ktsnt:=true; end; {---------------------------------------------------------------} function daonguoc(n:qword):boolean; begin str(n,S);St:=''; for i:=length(S) downto 1 do St:=St+S[i]; val(St,k); if ktsnt(k) then daonguoc:=true else daonguoc:=false; end; {---------------------------------------------------------------} begin assign(f1,'daonguoc.inp');reset(f1); assign(f2,'daonguoc.out');rewrite(f2); readln(f1,n,m); for j:=n to m do if daonguoc(j) then writeln(f2,j); close(f1);close(f2);end.
8 tháng 12 2019
câu 1 :
a, x=8;
b,x=7;
c,X=8;
d,x=49;
câu 9:
a, gán Y bởi 5 (lúc này Y sẽ bằng 5).
b,gán x bởi x+1.
c,gán a bởi b.
d,gán y bởi y+5.
ML
25 tháng 4 2019
Lời giải :
Ban đầu x:=1 ; y:=2 ; z:=3 ta có :
x:=x+2 <=> x:=1+2=3
y:=y+2 <=> y:=2+2=4
z:=z+y+x <=> z:=3+4+3=10
Vậy kết quả in ra màn hình sau đoạn lệnh là : 3,4,10
mình dùng cách khác nhé
var x,y:longint;
begin
write('nhap x,y:');readln(x,y);
repeat
if x>y then x:=x-y else y:=y-x;
until x=y;
write('ucln la ',x);
readln;
end.