Viết Chương Trình Pascal Tìm Cặp Số Bạn Bè (hoặc Cũng Có Thể Gọi Là ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

kynguyen64
Programmer Hotel

Trả lời
221
Điểm
5919
Cảm ơn
136

Tin Học
Lớp 8
20 điểm
kynguyen64 - 11:12:39 22/12/2021

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> định nghĩa thì tra google nha mn

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

shamsiel
Chưa có nhóm

Trả lời
10844
Điểm
117738
Cảm ơn
5940

shamsiel

Câu trả lời hay nhất!
22/12/2021

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.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar5 voteGửiHủy

Cảm ơn 5
Báo vi phạm

- khoadang09
- Kate Lee
- Trả lời
  5599
- Điểm
  4871
- Cảm ơn
  3498
lô yang iu
- shamsiel
- Chưa có nhóm
- Trả lời
  10844
- Điểm
  117738
- Cảm ơn
  5940
: Đ sởn da gà
- shamsiel
- Chưa có nhóm
- Trả lời
  10844
- Điểm
  117738
- Cảm ơn
  5940
lô Khoa
- khoadang09
- Kate Lee
- Trả lời
  5599
- Điểm
  4871
- Cảm ơn
  3498
hehe
- khoadang09
- Kate Lee
- Trả lời
  5599
- Điểm
  4871
- Cảm ơn
  3498
thấy e đào sao
- khoadang09
- Kate Lee
- Trả lời
  5599
- Điểm
  4871
- Cảm ơn
  3498
nhiều k
- TuanKietChess
- Chưa có nhóm
- Trả lời
  88
- Điểm
  1857
- Cảm ơn
  57
bạn cũng làm giống mình, nhưng mình bị sai cái này ở test 12:(
- shamsiel
- Chưa có nhóm
- Trả lời
  10844
- Điểm
  117738
- Cảm ơn
  5940
Chỉ đúng trong 1 phạm vi của integer, ngoài thì phải sử dụng cái khác

Đăng nhập để hỏi chi tiết avatar

danhle766
Chưa có nhóm

Trả lời
253
Điểm
8049
Cảm ơn
243

danhle766

22/12/2021

var a,b,i,s,s1:longint;begin readln(a); readln(b); s:=0; s1:=0; for i := 1 to a do begin if a mod i = 0 then s:=s+i; end; for i := 1 to b do begin if b mod i = 0 then s1:=s1+i; end; if s1 = s then writeln('la so ban be') else writeln('khong la so ban be');end.

p/s: bài này khá đơn giản vì định nghĩa số bạn bè là 2 số có tổng ước bằng nhau nên chỉ cần tính tổng ước 2 số và so sánh là ra nhé.

@Hômnaytôibịrob

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar3 voteGửiHủy