K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Nguyễn Minh Lệ em xin lỗi ạ, em sửa là : longint;

28 tháng 1 2020

b)

program hotrotinhoc;

var s: real;

i,n: byte;

function t(x: byte): longint;

var j: byte;

t1: longint;

begin

t1:=1;

for j:=1 to x do

t1:=t1*j;

t1:=t;

end;

begin

readln(n);

s:=0;

for i:=1 to n do

s:=s+1/t(i);

write(s:1:2);

readln

end.

c) Đề em ghi sai rồi thế này với đúng :

\(T=1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{n}{n^2}\)

program hotrotinhoc;

var t: real;

n,i: byte;

begin

readln(n);

t:=0;

for i:=1 to n do

t:=t+i/(i*i);

write(t:1:2);

readln

end.

14 tháng 3 2023

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.

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.

12 tháng 3 2023

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.

      

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.

16 tháng 12 2022

#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;

}

21 tháng 1 2022

giúp với

 

#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;

}

28 tháng 2 2022

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.  
28 tháng 2 2022

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.

14 tháng 3 2022

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.

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;

}

8 tháng 3 2022

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.

#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;

}

7 tháng 5 2023

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.