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.

9 tháng 3 2022

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.

22 tháng 12 2021

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

}

16 tháng 1 2022
Tính tổng N = 2+4+6+8+10 Mk nhầm
24 tháng 1 2022

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!

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

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;

}

3 tháng 3 2022

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.

3 tháng 3 2022

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.