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.

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.

27 tháng 11 2018

Vào đây tham khảo nha ! : Câu hỏi của Phạm Chí Cường - Toán lớp 6 | Học trực tuyến

D
datcoder
CTVVIP
14 tháng 10 2023

loading...

#include <bits/stdc++.h>

using namespace std;

long long m,n;

//chuongtrinhcon

long long ucln(long long m,long long n)

{

if (n==0) return(m);

else return(ucln(n,m%n));

}

//chuongtrinhchinh

int main()

{

cin>>n>>m;

cout<<ucln(n,m);

return 0;

}

4 tháng 4 2022

Pascal bạn ơi

13 tháng 3 2016

là 4 số 26 và 1 số 52

Câu 1: 

uses crt;

var m,n,ucln,i:integer;

begin

clrscr;

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

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

ucln:=1;

if m<n then 

begin

for i:=1 to m do 

if (m mod i=0) and (n mod i=0) then 

  begin

if ucln<i then ucln:=i;

end;

end

else begin

for i:=1 to n do 

  if (m mod i=0) and (n mod i=0) then 

begin

if ucln<i then ucln:=i;

end;

end;

writeln(ucln);

readln;

end.

Câu 2: 

uses crt;

var m,n,bcnn,i:integer;

begin

clrscr;

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

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

bcnn:=m*n;

for i:=m*n-1 downto 1 do 

  if (i mod m=0) and (i mod n=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(bcnn);

readln;

end.