Đặng Hoàng Hàn Ny
Hỏi từ APP VIETJACK
Viết chương trình nhập vào số N. Liệt kê các ước của N ra màn hình
Quảng cáo
3 câu trả lời 477
uses crt;
var i,n:integer; s:longint;
begin
clrscr;
write('n= ');
readln(n);
s:=0;
for i:=0 to round(1000/n) do s:=s+n*i;
writeln('tong cac boi cua n tu 0 den 1000 la ',s:1);
readln
end
var i,n:integer; s:longint;
begin
clrscr;
write('n= ');
readln(n);
s:=0;
for i:=0 to round(1000/n) do s:=s+n*i;
writeln('tong cac boi cua n tu 0 den 1000 la ',s:1);
readln
end
uses crt;
var i,n:integer; s:longint;
begin
clrscr;
write('n= ');
readln(n);
s:=0;
for i:=0 to round(1000/n) do s:=s+n*i;
writeln('tong cac boi cua n tu 0 den 1000 la ',s:1);
readln
end
var i,n:integer; s:longint;
begin
clrscr;
write('n= ');
readln(n);
s:=0;
for i:=0 to round(1000/n) do s:=s+n*i;
writeln('tong cac boi cua n tu 0 den 1000 la ',s:1);
readln
end
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45592
-
Đã trả lời bởi chuyên gia
29052 -
Hỏi từ APP VIETJACK28534
Gửi báo cáo thành công!

..