uses crt;
var n,i,s :integer;
begin
clrscr;
writeln('Nhap n'); readln(n);
s:=0;
for i:=1 to n do
if n mod i:=0 then
begin
s:=s+i;
writeln(s);
end;
readln;
end.
Chỉ làm đc vs số dương thôi nha
nhập vòa số nguyên n viết chương trình in ra màn hình tổng các ước của n
Viết chương trình in ra màn hình Dãy số từ 1 đến n bằng ngôn ngữ lập trình Pascal dùng lệnh lặp for..... do với n được nhập vào từ bàn phím
Viết chương trình nhập vào 3 số nguyên dương a, b, c. Xuất ra màn hình tổng và tích của 3 số đó.
Viết chương trình nhập vào 3 số nguyên dương a, b, c. Xuất ra màn hình tổng và tích của 3 số đó.
Giả sử cần viết chương trình nhập một số tự nhiên vào máy tính và in ra màn hình kết quả số đã nhập chẵn hay lẻ, chẳng hạn “5 là số lẻ”, “8 là số chẵn”. Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
1Cho số nguyên dương N ,đếm số cách phân tích N thành tổng hai số nguyên tố .
2 Viết chương trình nhập vào số nguyên dương N.
a) Xuất ra màn hình N có phải là số nguyên tố đối xứng hay không.
b) Thông báo ra màn hình số nguyên tố đối xứng nhỏ nhất lớn hơn N.
mong các bạn giúp mình với ạ.
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
