Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Thu Anh
Xem chi tiết
Phía sau một cô gái
14 tháng 3 2023 lúc 15:44

program TongN;

var

     n, i, tong: integer;

begin

     tong := 0;

     writeln('Nhap so nguyen duong N: ');

     readln(n);

     i := 0;

     while i < n do

     begin

          i := i + 1;

          tong := tong + i;

     end;

     writeln('Tong cac so tu 1 den ', n, ' la ', tong);

     readln;

end.

dũng
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2023 lúc 15:18

uses crt;

var i,n,x,s:integer;

begin

clrscr;

readln(n);

s:=1;

for i:=1 to n do

begin

readln(x);

s:=s*x;

end;

writeln(s);

readln;

end.

Dương Nguyễn
12 tháng 3 2023 lúc 9:45

uses crt;

var n,i:integer;

      s:longint;

begin

clrscr;

writeln('nhap n:');readln(n);

for i:=1 to n do s:=s*i;

write('tich cua ',n,'so tu nhien dau tien la:',s);

readln;

end.

      

Dương Nguyễn
12 tháng 3 2023 lúc 9:47

uses crt;

var n,i:integer;

      s:longint;

begin

clrscr;

writeln('nhap n:');readln(n);

s:=1;

for i:=1 to n do s:=s*i;

write('tich cua ',n,'so tu nhien dau tien la:',s);

readln;

end.

X No mame
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 2 2023 lúc 8:21

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do

if i mod 2=0 then inc(dem);

writeln(dem);

readln;

end.

Kim Thoa Le Thi
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2022 lúc 14:38

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=1;

for (int i=1; i<=n; i++) t=t*i;

cout<<t;

 

return 0;

}

Lê Thế Phong
Xem chi tiết
Lê Thế Phong
21 tháng 1 2022 lúc 16:09

giúp với

 

Nguyễn Lê Phước Thịnh
21 tháng 1 2022 lúc 22:01

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i,dem;

int main()

{

cin>>st;

d=st.length();

dem=0;

for (i=0; i<d; i++)

if (st[i]=='0') dem++;

cout<<dem;

return 0;

}

Kiều Vũ Linh
22 tháng 1 2022 lúc 8:33

Var n,dem:longint;

Begin

Write('Nhap so n = ');readln(n);

While n >= 10 do

Begin

if n mod 10 = 0 then dem:=dem+1;

n:=n div 10;

End;

Write('So vua nhap co ',dem,' so 0');

Readln;

End.

Hồng Ánh Nguyễn
Xem chi tiết
namperdubai2
28 tháng 2 2022 lúc 21:25

tham khảo

Đề bài: Viết chương trình tính n! với n là số tự nhiên không âm nhập vào từ bàn phím Để làm được bài này, trước tiên các bạn cần nhớ lại công thức tính n! đã. Theo định nghĩa giai thừa ta có: 0! = 1 n! = 1.2.3…n Vậy là ta có công thức rồi. Nhìn vào công thức ta thấy với n = 0 thì dễ rồi, nếu n > 0 thì nó là tích các số từ 1 đến n.  
Sơn Mai Thanh Hoàng
28 tháng 2 2022 lúc 21:25

TK

Var i ,n : integer;

S , T : real;

Begin

write ('n=') ; read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' so dau tien la' , S );

Writeln (' Tich của ' ,n,' so dau tien la' , T );

Readln;

End.

Nguyễn Hoàng Hà
Xem chi tiết
Thu Hằng
14 tháng 3 2022 lúc 20:09

var n,i,s:longint; begin write('nhap so n=');readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(' tong n so nguyen la:',s); readln; end.

Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 20:47

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++) s+=i;

cout<<s;

return 0;

}

Nguyễn Thuận
Xem chi tiết
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 21:50

Câu 3: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' la hop so');

end

else writeln(n,' khong la so nguyen to cung khong la hop so');

readln;

end.

level max
Xem chi tiết
Tryechun🥶
8 tháng 3 2022 lúc 18:52

tham khảo

 

Var i ,n : integer;

S , T : real;

Begin

write ('n=') ; read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' so dau tien la' , S );

Writeln (' Tich của ' ,n,' so dau tien la' , T );

Readln;

End.

Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 22:59

#include <bits/stdc++.h>

using namespace std;

long long i,n,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++) t+=i;

cout<<t;

return 0;

}

pham thanh
Xem chi tiết
Minh Lệ
7 tháng 5 2023 lúc 22:30

Program HOC24;

var s: longint;

i,n: integer;

begin

write('Nhap n: '); readln(n);

s:=1;

for i:=1 to n do s:=s*i;

write('S = ',s);

readln

end.