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.

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;

}

26 tháng 3 2019

bài 1

program: Tinh _Tong;

var: i,n:integer;S:real;

begin

writeln('nhap so n=');readln(n);

S:=0;

for i:=1 to N do S:=S+1/i*(i+2);

write('tong can tim la',S:0:2);

readln;

end.

26 tháng 3 2019

bài 2

program:Tinh_tong_2;

var:i,n:integer;S:real;

begin

writeln('nhap so N=');

readln(n);

S:=0;

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

writeln('tong can tim la',);

readln;

end.

(bài được làm bởi người giỏi tin nhất khối 8 trường Phạm Đình Quy.)

#include <bits/stdc++.h>

using namespace std;

long long s,i,n;

int main()

{

cin>>n;

s=0;

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

{

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

else s=s-i;

}

cout<<s;

return 0;

}

31 tháng 3 2019

a) uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

s:=s+1/i*(i+2);

end;

writeln(s);

readln

end.

b)

uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

s:=s+1/i;

end;

writeln(s);

readln

end.

25 tháng 3 2019

a) uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

s:=s+1/i*(i+2);

end;

writeln(s);

readln

end.

b)

uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

s:=s+1/i;

end;

writeln(s);

readln

end.

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.

10 tháng 5 2020

Hình như câu này chỉ sử dụng câu lệnh for... to... do hay sao thoii í cậu. Thầy tớ gợi í thế

a)

uses crt;
var b:real;

i:integer;
begin
clrscr;
i:=10;
b:=1;
while i<=30 do
begin
b:=b*i;
i:=i+1;
end;
writeln('B=',b:0:0);

readln;

end.

b) uses crt;
var c,j:integer;
begin
clrscr;
j:=50;
c:=0;
while j<=100 do
begin
c:=c+j;
j:=j+1;
end;
writeln('C=',c);

readln;

end.

c) uses crt;

var i,d:integer;

begin

clrscr;

i:=-50;

d:=0;

while i<=50 do

begin

d:=d+i;

inc(i);

end;

writeln('D=',d);

readln;

end.

d) uses crt;

var n,i:integer;

e:real;

begin

clrscr;

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

e:=0;

for i:=1 to n do

e:=e+1/(i*(i+2));

writeln('E=',e:4:2);

readln;

end.