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 thu
Xem chi tiết
Phạm Anh Thư
Xem chi tiết
Nguyễn acc 2
9 tháng 3 2022 lúc 9:25

refer:

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

for i:=0 to n do

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

writeln('S=',s);

readln;

end.

Lê Nguyễn Thiện Lộc
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 12 2021 lúc 10:30

#include <bits/stdc++.h>

using namespace std;

long long s,i,n;

int main()

{

cin>>n;

s=1;

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

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

cout<<s;

return 0;

}

nana
Xem chi tiết
phan thị ngọc thùy
Xem chi tiết
phan thị ngọc thùy
16 tháng 1 2022 lúc 15:45
Tính tổng N = 2+4+6+8+10 Mk nhầm
Khách vãng lai đã xóa
Lê Minh Hiếu
24 tháng 1 2022 lúc 21:23

Bạn kham khảo bài của mình nhé!

Program nhap_so_n;

Uses crt;

Var i,n,s:integer;

Begin clrscr;

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

S:=0;

For i:=1 to n do

If i mod 2 = 0 do S:=S+i;

Writeln;

Write('tong cac so chan la ',S);

Readln;

End.

Mình chúc bạn học tốt!

Khách vãng lai đã xóa
nuinuini
Xem chi tiết
Linh lung
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 1 2022 lúc 22:25

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=0;

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

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

cout<<s;

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

}

Ngân
Xem chi tiết
ILoveMath
3 tháng 3 2022 lúc 9:21

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s)

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

if i mod 3 = 0 then s:=s+i;

write(s);

Readln;

End.

ILoveMath đã xóa
ILoveMath
3 tháng 3 2022 lúc 10:29

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s);

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

if i mod 3 = 0 then s:=s+i;

write(s);

Readln;

End.