VTC pascal nhập hai số a,b (a>0 ; b>0). Xuất ra màn hình hình: + Tổng của a+b + Các ước của tổng của a+b + Xét tổng đó có phải là số hoàn hảo không? Giúp mình với.Tks

yến phạm Hỏi từ APP VIETJACK

· 21:28 19/04/2023

VTC pascal nhập hai số a,b (a>0 ; b>0). Xuất ra màn hình hình:
+ Tổng của a+b
+ Các ước của tổng của a+b
+ Xét tổng đó có phải là số hoàn hảo không?
Giúp mình với.Tks

Trả Lời (+5 điểm)

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

1 câu trả lời 152

_kw

3 năm trước

```
program tong_uoc_so;

var
a, b, tong, i: integer;
uoc: array[1..100] of integer;
count: integer = 0;
laHoanHao: boolean = false;

begin
write('Nhap a: ');
readln(a);
write('Nhap b: ');
readln(b);

tong := a + b;
writeln('Tong cua a va b la: ', tong);

writeln('Cac uoc cua tong la:');
for i := 1 to tong do
begin
if (tong mod i = 0) then
begin
count := count + 1;
uoc[count] := i;
write(i, ' ');
end;
end;

for i := 1 to count do
begin
if (uoc[i] <> tong) then
begin
laHoanHao := laHoanHao or (tong mod uoc[i] = 0);
end;
end;

if (laHoanHao) then
writeln('Tong cua a va b khong phai la so hoan hao')
else
writeln('Tong cua a va b la so hoan hao');
end.
```

0 bình luận

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

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?

1 câu trả lời 152

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 8