Những câu hỏi liên quan
Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

Đỗ Nguyễn Anh Hào
Xem chi tiết

có gh của n ko bạn!

Kiều Vũ Linh
10 tháng 2 2022 lúc 16:21

var i,n:integer;

s:real;

begin

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

s:=1;

if n mod 2 = 0 then

begin

for i:=2 to n do

begin

s:=s*i;

i:=i+2;

end;

end

else

begin

for i:=1 to n do

begin

s:=s*i;

i:=i+2;

end;

write('Tong la ',s:10:2);

readln;

end.

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

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

if (n%2==0) 

{

s=1;

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

if (i%2==0) s=s*i;

cout<<s;

}

else 

{

s=1;

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

if (i%2==1) s=s*i;

cout<<s;

}

return 0;

}

Hoàng Như Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 2 2022 lúc 23:31

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

if (n%2==0)

{

s=1;

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

if (i%2==0) s=s*i;

cout<<s;

}

else 

{

s=1;

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

if (i%2==1) s=s*i;

cout<<s;

}

return 0;

}

☆⩸Moon Light⩸2k11☆
Xem chi tiết
Pommbiijj
25 tháng 5 2022 lúc 19:58

Sao bài bạn giống hệt bài lớp mình nhỉ

Công Chúa Sakura
Xem chi tiết
Trương Hồng Hạnh
4 tháng 1 2017 lúc 22:42

Mik học tin cx đc nhưng lâu quá rùi nên cx quên rùi

Minh Lệ
22 tháng 8 2019 lúc 9:49

Lời giải:

Bài 2:

program hotrotinhoc;

var n,i: longint;

function tich(x: longint): longint;

var j,t: longint;

begin

t:=1;

for i:=1 to x do

t:=t*i;

tich:=t;

end;

begin

readln(n);

if n=0 then n:=1;

if n>0 then

write(tich(n));

readln

end.

Bài 3:

program hotrotinhoc;

var s: longint;

n,i: integer;

function tich(x: integer): longint;

var j: integer;

t: longint;

begin

t:=1;

for i:=1 to x do

t:=t*i;

tich:=t;

end;

begin

readln(n);

s:=0;

if n=0 then s:=1;

if n>0 then

for i:=1 to n do s:=s+tich(i);

write(s);

readln

end.

Nguyễn Thị Tươi
Xem chi tiết
Trường Nguyễn
Xem chi tiết
Minh Lệ
1 tháng 4 2022 lúc 11:26

Program HOC24;

var i,n: integer;

S: real;

begin

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

s:=0;

for i:=1 to N do s:=s+1/i;

write('S= ',s:5:2);

readln

end.

nuinuini
Xem chi tiết
Thị Thảo Ly Hoàng
Xem chi tiết
Minh Lệ
13 tháng 3 2023 lúc 12:21

Program HOC24;

var i,n: integer;

s: longint;

begin

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

s:=0;

for i:=1 to n do s:=s+sqr(i);

write('S= ' ,s);

readln

end.

HT.Phong (9A5)
13 tháng 3 2023 lúc 12:27

Uses crt;

var i,n,y: integer;

begin clrscr;

readln(n);

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

Writeln(s);

readln;

end.