[tin8] Pascal

[bigghosthead_kute_2g]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mọi người ơi làm giúp mình mấy bài này

Bài 1Nêu các bước tìm ước chung lơn nhất
Bài 2 Nêu các bước tìm bội chung nhỏ nhất
Bài 3 Nêu phương pháp để phân tích 1 số bất kì thành các chữ số
VD,12354 -> a1=1,a2=2,a3=3..
mọi người giúp nha t5 mình cần rùi
THanks

 

[diamond_jelly95]

Mọi người ơi làm giúp mình mấy bài này

Bài 1Nêu các bước tìm ước chung lơn nhất

1,
B1: Nhập 2 số a,b
B2: Nếu a=b
=>UCLN=a
=>Đưa ra a và kết thúc
B3:
Nếu a>b =>a=a-b;
Nếu a<b =>b=b-a;
B4: Quay lại bước 2

 

[bigghosthead_kute_2g]

cÒN 2 bài nữa
mọi người giúp mình nha

 

[dandoh221]

bài 2 e cứ lấy tích 2 số chia cho ước chung lớn nhất là ra à , bài 3 thì chắc là dung chia và dư

 

[diamond_jelly95]

Mọi người ơi làm giúp mình mấy bài này

Bài 3 Nêu phương pháp để phân tích 1 số bất kì thành các chữ số
VD,12354 -> a1=1,a2=2,a3=3..

phương pháp hả
chia 10 lấy phần dư
gán từng số dư cho từng ẩn hoặc cho vào 1 xâu, in ra các phần tử của xâu đó

 

[duynhan1]

Bài 3 Nêu phương pháp để phân tích 1 số bất kì thành các chữ số
VD,12354 -> a1=1,a2=2,a3=3..
mọi người giúp nha t5 mình cần rùi
THanks[/COLOR][/I][/SIZE]

B0: Đảo số n lại do dễ làm
B1:Kiểm tra n>0. Nếu đúng thì thực hiện B2, sai thì thực hiện B4.
B2: Viết ra màn hình n mod 10
B3:[TEX] n\leftarrow n div 10[/TEX], quay lại bước 1.
B4:Kết thúc.

 

[bigghosthead_kute_2g]

thanks moi nguoi nhiu lắm í
sao pascal khó vậy ??? hix
mong moi nguoi giúp mình n` nha