uses crt;
var a,b,x,t,i:integer;
begin
clrscr;
readln(a,b,x);
t:=0;
for i:=a to b do
if i mod x=0 then t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
Viết chương trình tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Viết chương trình tính tổng các giá trị là bội của 3 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Viết chương trình tính và đưa ra màn hình tổng S và số lượng các số nguyên chẵn trong phạm vi từ a đến b? Với a, b được nhập từ bàn phím (a <= b) .
giúp em với hic
Viết chương trình tính và đưa ra màn hình tổng S và số lượng các số nguyên chẵn trong phạm vi từ a đến b? Với a, b được nhập từ bàn phím (a
Viết chương trình tính và đưa ra mà hình tổng S và số lượng các số nguyên chẵn trong phạm vi từ a đến b? Với a,b được nhập từ bàn phím (a<=b).
Tính tổng s và số lượng các số nguyên chẵn trong phạm vi từ a tới b với a,b được nhập từ bàn phím
1.Viết 1 chương trình pascal nhập vào từ bàn phím 4 số nguyên a, b, c, d rồi in ra màn hình dãy thứ nhất là tổng của 4 số trên, dãy thứ 2 là giá trị lớn nhất của chúng.
Giúp mình với...mình cần gấp
Xem chi tiết
Viết trương trình nhập số nguyên a,b,c vào từ bàn phím , in ra màn hình các số chẵn trong 3 số a,b,c Mọi người giúp với ạ cần gấp
Giúp mình câu này với ạ
Viết chương trình nhập vào 2 số nguyên dương A,B (A<B), Tính tổng các số chia hết cho 3 trong đoạn từ A đến B..Mong được giúp