Chương trình và đưa ra màn hình tổng các số nguyên chia hết cho số nguyên k. Số lượng các số nguyên chia hết cho số nguyên k trong phạm vi từ A đến b với a b k được nhập từ bàn phím
Quảng cáo
1 câu trả lời 250
program chia_het;
uses crt;
var a,b,k,i,dem,s:longint;
begin
clrscr;
write('nhap a,b,k:');readln(a,b,k);
dem:=0;
s:=0;
for i:=a to b do if(i mod k=0)then
begin
inc(dem);
s:=s+i;
end;
writeln('tong cac so chia het cho so nguyen k trong khoang a,b la: ',s);
writeln('so luong cac so chia het cho so nguyen k trong khoang a,b la: ',dem);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86326
Gửi báo cáo thành công!
