Tin học Tìm số

[Trâm Nguyễn Thị Ngọc]

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

Nhập vào 2 số nguyên dương A,B .
--In ra tổng các số lẻ trong đoạn từ A đến B
--In ra 2 số là tử số và mẫu số của phân số tối giản của phân số A
--In ra 2 số nguyên p,q mà p+q=A và p.q=B
Ví dụ:
Nhập A=10,B=16
In ra 39
5 8
2 8 (vì 2+8=10 và 2.8=16)
Làm giúp e ý thứ 3 với mn

 

[nguyen tran thanh nha]

var a,b ,l,r,i,x:longint;
begin
write('nhap a,b:');read(a,b);
x:= a div 2;
l:=1; r:= a;
while l<= r do
begin
if b div x= a-x then begin if x>a-x then write(a-x,' ',x) else write(x,' 'a-x);end
else if b div x > a-x then l:= x+1
else r:= x-1;
end;
end.

 

[nguyen tran thanh nha]

var a,b ,i ,p,q:longint;
begin
write('nhap a,b:');read(a,b);
for i:= 1 to a do
if i*(a-i) = b then begin p:= i;q:= a-1;end;
write(q,p);
end.