giúp mình làm bài này

[phithang_tin]

[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.

1.Viết chương trình nhập vào 6 số nguyên dương a,b,c và x,y,z lần lượt là độ dài 3 cạnh cùa 2 tam giác ABC và tam giác XYZ. Kiểm tra xem 2 tam giác ABC và XYZ có đồng dạng hay không.
ví dụ: input
a=4
b=6
c=8
x=12
y=8
z=16
Kết quả: Hai tam giác đồng dạng
2.Nhập 1 số nguyên dương và phân tích số đó thành tích của các thừa số nguyên tố
ví dụ: input n=4269=2 2 11 97

 

[atlmnt]

var
  a,b,c,x,y,z:real;
BEGIN
 write('Nhap 3 canh tam giac thu nhat:'); read(a,b,c);
 writeln;
 write('Nhap 3 canh tam giac thu hai:'); read(x,y,z);
 writeln;
 if ((a/b=x/y) or (a/b=y/x) or (a/b=x/z) or (a/b=z/x) or (a/b=y/z) or (a/b=z/y))
  and  ((b/c=x/y) or (b/c=y/x) or (b/c=x/z) or (b/c=z/x) or (b/c=y/z) or (b/c=z/y))
    then write('2 tam giac dong dang')
        else write('2 tam giac khong dong dang');
   readln;
   
   end.

 

[phithang_tin]

var
  a,b,c,x,y,z:real;
BEGIN
 write('Nhap 3 canh tam giac thu nhat:'); read(a,b,c);
 writeln;
 write('Nhap 3 canh tam giac thu hai:'); read(x,y,z);
 writeln;
 if ((a/b=x/y) or (a/b=y/x) or (a/b=x/z) or (a/b=z/x) or (a/b=y/z) or (a/b=z/y))
  and  ((b/c=x/y) or (b/c=y/x) or (b/c=x/z) or (b/c=z/x) or (b/c=y/z) or (b/c=z/y))
    then write('2 tam giac dong dang')
        else write('2 tam giac khong dong dang');
   readln;
 
   end.

Cảm ơn bạn nhưng mình nghĩ ra bài đầu rồi. Mình chủ yếu cần bài 2

 

[thienvamai]

1/ sort lại a,b,c và x,y,z sau đó nếu a/x=b/y=c/z thì 2 tam giác đồng dạng
2/ for i từ 1-> căn n
while n chia hết cho i : in ra số i,gán n=n/i;

sau khi for mà n vẫn >1 thì in ra n