Giúp mình vs 1. Viết chương trình in ra màng hình tổng các ước của số nguyên dương được nhập từ bàn phím( ước không kể chính nó) 2.Viết chương trình nhập vào từ bàn phím một dãy N số nguyên. Cho biết trong dãy đó có bn số nguyên chia hết cho 7.
2 câu trả lời
Câu 1:
uses crt;
var n,i,sum:longint;
begin
clrscr;
readln(n);
sum:=1;
for i:=2 to n div 2 do
if n mod i=0 then inc(sum,i);
write(sum);
readln;
end.
Câu 2:
uses crt;
var a:array[1..1000]of longint;
n,i,count:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 7=0 then inc(count);
end;
write(count);
readln;
readln;
end.
