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.

b: 

Input: a,b

Output: UCLN(a,b)

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a+b);

writeln(a-b);

writeln(a*b);

writeln(a/b:4:2);

readln;

end.

31 tháng 10 2018

Đáp án C

A={1;2;3;4;6;12} và B={1;2;3;6;9;18}

Khi đó A ∩ B={1;2;3;6}

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

17 tháng 6 2023

def UCLN(a, b):

      if a == 0:

            return b

      elif b == 0:

            return a

      elif a == b:

            return a

      elif a > b:

            return UCLN(a - b, b)

      else:

            return UCLN(a, b - a)