Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Hiền Nguyễn
Xem chi tiết
nguyễn an phát
27 tháng 5 2021 lúc 14:24

a)

program UCLN_va_BCNN;

uses crt;

var a,b,c,r,p:integer;

begin

clrscr;

write('nhap a,b:');readln(a,b);

if a<b then 

begin

c:=a;

a:=b;

b:=c;

end;

p:=a*b;

r:=a mod b;

while r<>0 do

begin

a:=b;

b:=r;

r:=a mod b;

end;

writeln('UCLN la: ',b);

writeln('BCNN la: ',p div b);

readln;

end.

nguyễn an phát
27 tháng 5 2021 lúc 14:30

b)

program fibonaci;

uses crt;

var i,n:integer;

a:array[1..30]of integer;

begin

clrscr;

repeat

write('nhap n:');readln(n);

if (n<1)or(n>30) then writeln('so n phai lon hon hoac bang 1 va nho hon hoac bang 30:);

until (n>=1)and(n<=30);

a[1]:=1;

a[2]:=1;

for i:=3 to n do

a[i]:=a[i-1]+a[i-2];

writeln(n,' so fibonaci dau tien la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

King vip pro
Xem chi tiết
Minh Lệ
Xem chi tiết
datcoder
14 tháng 10 2023 lúc 21:47

loading...

Thùy Giang Nguyễn
Xem chi tiết
Thùy Giang Nguyễn
Xem chi tiết
40. Cao Nguyên Việt
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 11 2021 lúc 23:30

b: 

Input: a,b

Output: UCLN(a,b)

Xuan Yen
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 4 2022 lúc 20:10

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.

phamthiminhanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:42

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.

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:46

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.

Yoriichi_Tsugikuni ( ɻɛɑ...
11 tháng 6 2021 lúc 14:55

Scratch hay java

Khách vãng lai đã xóa
Hello1234
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 9 2021 lúc 2:03

#include <iostream>
using namespace std;
int main()
{
    int t,m,n,ucln;
    cout<<"Nhap n="; cin>>n;
    cout<<"Nhap m="; cin>>m;
    t=m%n;
    while (t!=0)
    {
        t=n%m;
        n=m;
        m=t;
    }
    ucln=n;
    cout<<ucln;
    return 0;
}