Viết chương trình pascal tìm cặp số bạn bè (hoặc cũng có thể gọi là thân thiết) <Hai số được nhập vào từ bàn phím>
Viết chương trình pascal tìm cặp số bạn bè (hoặc cũng có thể gọi là thân thiết) <Hai số được nhập vào từ bàn phím>
Câu hỏi trong đề: Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!
Quảng cáo
Trả lời:
Giải bởi Vietjack
uses crt;
var a, b, s1, s2, i : integer;
begin
clrscr;
s1 := 0; s2 := 0;
write('nhap hai so : '); readln(a, b);
for i := 1 to a - 1 do
if a mod i = 0 then s1 := s1 + i;
for i := 1 to b - 1 do
if b mod i = 0 then s2 := s2 + i;
if (s2 = a) and (s1 = b) then
writeln(a,' va ', b ,' la hai so than thiet')
else writeln(a,' va ', b ,' khong la hai so than thiet');
readln
end.
Hot: 1000+ Đề thi cuối kì 2 file word cấu trúc mới 2026 Toán, Văn, Anh... lớp 1-12 (chỉ từ 60k). Tải ngay
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Lời giải
N = int(input("Nhập số N : "))
for i in range(1, 10) :
print(N ,' x ', i,' = ', N * i)
Lời giải
Cách kí hiệu góc:
1. widehat{ABC} ⇒ Sau đó bạn thêm dấu "\" vào đầu câu nha
Vd: \widehat{ABC}
2. hat{ABC} ⇒ Sau đó bạn thêm dấu "\" vào đầu câu nha
Vd: \hat{ABC}
⊕ Dấu gạch ngang:
1. overline{abab} ⇒ Sau đó bạn thêm dấu "\" vào đầu câu nha
Vd: \overline{abab}
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Nhắn tin Zalo
Hỏi bài tập