Những câu hỏi liên quan
Nguyễn Võ Phương Uyên
Xem chi tiết
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2023 lúc 0:38

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

Bình luận (0)
Yến Trần Thị Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 21:38

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

double p1,p2;

int i,n;

int main()

{

cin>>n;

p1=1;

p2=1;

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

{

if (i%2==0) p2=p2*(i*1.0);

else p1=p1*(i*1.0);

}

cout<<fixed<<setprecision(2)<<p1<<endl;

cout<<fixed<<setprecision(2)<<p2;

return 0;

}

Bình luận (0)
Ngọc Tú
Xem chi tiết
Thanh Phong (9A5)
7 tháng 3 2023 lúc 16:37
Bình luận (0)
Minh Lệ
7 tháng 3 2023 lúc 17:03

Program HOC24;

var i: byte;

t: real;

begin

t:=0;

for i:=1 to 100 do t:=t+1/i;

write('T= ',t:5:2);

readln

end.

Bình luận (0)
Huyền
Xem chi tiết
Thanh Phong (9A5)
28 tháng 4 2023 lúc 16:21

Uses crt;

var i,t: integer;

begin clrscr;

i:=0;

while(i<=120) do begin

i:=i+1;

t:=t+i;

end;

write(t);

readln;

end.

Bình luận (0)
Tuấn Hưng
Xem chi tiết
Phiêu Phiêu
20 tháng 2 2022 lúc 13:42

Viết thân thôi hen

Var n,i,s:integer;

Read(n);

s:=0;

For i:=1 to n do

 If i mod 2 <>0 then s:=s+i else s:=s-i;

Write(s);

end.

Bình luận (0)
Tuấn Hưng
20 tháng 2 2022 lúc 13:35

mong mn giúp vs ạ
đang gấp

Bình luận (0)
Tuấn Hưng
20 tháng 2 2022 lúc 19:45

Bạn lm hết đc k@Phiêu Phiêu

Bình luận (0)
Hanh Nguyen
Xem chi tiết
nana
Xem chi tiết
kiều trinh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:55

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,t=0;

cin>>n;

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

if (i%2==1) t+=i;

else t-=i;

cout<<t;

}

Bình luận (0)
Minh Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 2 2022 lúc 16:26

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+(n*(n+1))/((n+2)*(n+3));

writeln(s:4:2);

readln;

end.

Bình luận (0)