mn giúp em với
S= -1/3*1 + 1/3*2 + -1/3*3 + .... 1/3*10
Câu 1: viết lại 2 chương trình tính tong 1a, và tong1b riêng biệt
Câu 2: viết chương trình tính tong bằng cấu trúc lặp While () do
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.
Những câu hỏi liên quan
LH
1
19 tháng 3 2023
var s, i: real;
begin
s := 0;
for i := 1 to 50 do
s := s + 1/i;
writeln('Tong s = ', s:0:2);
end.
KV
20 tháng 3 2023
Var i:integer;
s:real;
Begin
For i:=1 to 50 do
s:=s + 1/i;
Write('Tong la ',s:10:2);
Readln;
End.
28 tháng 2 2021
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
Câu 1: Bạn ghi rõ đề hơn nhé.
Câu 2:
Program hotrotinhoc;
var n,i: integer;
s: real;
begin
s:=0;
n:=0;
while n<10 do
begin
n:=n+1;
if n mod 2=1 then s:=s-(1/3*n) else s:=s+(1/3*n);
end;
write(s:1:2);
readln
end.