Tính tổng 2^3+4^3+....... trên pascal
Những câu hỏi liên quan
Viết chương trình pascal tính tổng A=1-2+3-4+...+((-1)^n+1)*n
Xem chi tiết
viết chương trình pascal tính tổng sau :
s= 1 + 1/2+1/3+1/4+...+1/100
Program HOC24;
var i: integer;
s: real;
begin
s:=0;
for i:=1 to 100 do s:=s+1/i;
write('S= ',s:2:2);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 3 số nguyên. Tính tổng của số thứ nhất và thứ hai, tính tích của số thứ ba. (trên Pascal)
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b);
readln;
end.
Đúng 0
Bình luận (0)
cho tổng s= 1-2-3+4+5-6-7+8+9 -10-11 +12... n. viết chương trình nhập vào một số n tính tổng từ 1 đến n pascal
Mọi người giúp mình câu này với ạ :
Tính tổng : S= 1-2-3+4+5-6-7+8+9-10-11+12+...+n
Viết chương trình pascal nhập vào một số n tính tổng từ 1 đến n theo 2 cách
Viết chương trình Pascal, để nhập vào 2 số nguyên từ bàn phím. Tính tổng của 2 số đó. (mọi người giúp em làm trên pascal với)
Đọc tiếp
Viết chương trình Pascal, để nhập vào 2 số nguyên từ bàn phím. Tính tổng của 2 số đó.
(mọi người giúp em làm trên pascal với)
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
Đúng 0
Bình luận (0)
Sử dụng ngôn ngữ lập trình Pascal. Viết chương trình tính tổng: S= 3 + 4 + ... + 96 + 97;
Xem chi tiết
#TK
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=3 to 97 do
s:=s+i;
write(s);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=3 to 97 do
s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
b1;tim ssh cua day so cach deu tren cong thuc lop 5:(97-3):khoang canh +1; :))
b2;tinh tong bang cong thuc lop 5 sau : tong=(so dau + so cuoi)*ssh/2;
b3; xuat ra :)))
Đúng 0
Bình luận (0)
Viết chương trình tính tổng S=1+2!+3!+.....+n! trong pascal
nhập vào n và tính tổng ra màn hình
S=1² +2² +3² +...+n²
tính âm
làm bằng pascal turbo with DOS Box
pleasessss
Program HOC24;
uses crt;
var s: longint;
i,n: integer;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s = s + i*i;
write('S = ',s);
readln
end.
Đúng 1
Bình luận (0)