Những câu hỏi liên quan
Nguyễn Bảo Anh
Xem chi tiết
2611
9 tháng 5 2023 lúc 18:11

n=int(input('n='))

S=0

for i in range (1,n+1):

       S+=i*(i+1)

print('Tổng S là:',S)

Bình luận (0)
Uyen
Xem chi tiết
hoàng đá thủ
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 8 2023 lúc 20:51

uses crt;

var a,b,l,r,i,dem:integer;

begin

clrscr;

readln(a,b,l,r);

dem:=0;

for i:=l to r do

if (i mod a=0) and (i mod b=0) then inc(dem);

write(dem);

readln;

end.

Bình luận (0)
Nguyễn Hoàng Duy
30 tháng 8 2023 lúc 14:32

var a,b,dem,L,i,R:longint;

begin

readln(a,b,L,R);

dem:=0;

for i:=L to R do

if (i mod a=0) and (i mod b=0) then inc(dem);

write(dem);

readln;

end.

Bình luận (0)
Con Nhà Người Ta
Xem chi tiết
Hiii
Xem chi tiết
Hiii
3 tháng 10 2021 lúc 19:23

Giúp mình ạ

Bình luận (2)
Nguyễn Lê Phước Thịnh
4 tháng 10 2021 lúc 1:19

#include <bits/stdc++.h>

using namespace std;

int main()

{

long a,b,x,dem,i;

cout<<"a="; cin>>a;

cout<<"b="; cin>>b;

cout<<"x="; cin>>x;

dem=0;

for (i=a; i<=b; i++)

if (i%x==0) dem++;

cout<<dem;

return 0;

}

Bình luận (2)
Hiếu
23 tháng 6 2023 lúc 21:08

#include <bits/stdc++.h>

using namespace std;
long long n,m,x;
int main()
{cin>>n>>m>>x;
cout<<(m/x)-((n-1)/x);
}

 

 

Bình luận (1)
Thanh Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 12 2020 lúc 0:02

b) 

uses crt;

var i,y:integer;

begin

clrscr;

y:=0;

for i:=1 to 100 do 

  y:=y+i;

writeln('y=',y);

readln;

end.

c) 

uses crt;

var y,i:integer;

begin

clrscr;

y:=0;

i:=1;

while y<=3200 do 

  begin

y:=y+i;

inc(i);

end;

writeln('y=',y);

readln;

end.

Bình luận (0)
Lê thị anh thư
Xem chi tiết
8A4 THANH MINH
Xem chi tiết
8A4 THANH MINH
11 tháng 12 2021 lúc 9:16

giúp Mình vs.

Mình cần gấp lắm

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
11 tháng 12 2021 lúc 11:53

Chỉ cần hai biến a,b kiểu nguyên là đủ rồi

Bình luận (0)
Alice
Xem chi tiết