Những câu hỏi liên quan
vietnam
Xem chi tiết
Nguyễn Lan Hương
Xem chi tiết
Nguyễn Thị Kiều Oanh
Xem chi tiết
navisuki
Xem chi tiết
navisuki
11 tháng 3 2016 lúc 19:04

dạng định lý FLT phải ko?

Bình luận (0)
navisuki
11 tháng 3 2016 lúc 19:08

Nội dung đề toán là hãy điền những chữ số thích hợp vào dạng định lý FLT sau:

Bình luận (0)
Đúng ý bé
11 tháng 3 2016 lúc 19:23

c đăng lên chỉ hỏi zậy thui ak !>?

Bình luận (0)
0o0_ Nguyễn Xuân Sáng _0...
Xem chi tiết
0o0_ Nguyễn Xuân Sáng _0...
27 tháng 6 2016 lúc 20:41

Giải:
A = 1 ;  B = 2 ;  C = 3
x = 8 ; y = 5 ; z = 3
Ax + By = Cz = 1 x 8 + 2 x 5 = 3 x 6
A ; B ; C có bội số chung nhỏ nhất là 6.

Bình luận (0)
Vũ Kiệt
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 22:26

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.

Bình luận (0)
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 22:27

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.

Bình luận (0)
Vũ Quang Vinh
31 tháng 8 2021 lúc 15:48

BCNN:

program boichung;
var m,n: word;

procedure Input;
        begin
            readln(m,n);
        end;

function BC(m,n: word): word;
var i: word;
       begin
           for i := 1 to n * m do
               if (i mod n = 0) and (i mod m = 0) then
                   write(i,' ');
       end;

begin
    Input;
    BC(m,n);
end.

UCLN:

program UCLN;
var m,n,r,i: longint;
begin
readln(n,m);

n := abs(n);
m := abs(m);

if (n = 0) then
    begin
        i := 1;
        write(m);
    end
else
    if (m = 0) then
        begin
            i := 1;
            write(n);
        end;

r := n mod m;
while r <> 0 do
      begin
        r := n mod m;
        n:= m;
        m:= r;
      end;
if (i = 0) then
    write(n);

readln    
end.

Bình luận (0)
do hoang nam
Xem chi tiết
anh vương
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 5 2022 lúc 21:58

uses crt;

var a:array[1..100]of integer;

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do

  if a[i]>0 then t:=t+a[i];

ln:=a[1];

nn:=a[1];

for i:=1 to n do 

begin

if ln<a[i] then ln:=a[i];

if nn>a[i] then nn:=a[i];

end;

writeln(t);

writeln(ln);

writeln(nn);

readln;

end.

Bình luận (1)
uihugy
Xem chi tiết

Ta có : 40 = 2. 5

324 = 22 . 34

Bình luận (0)