Câu 1 :Viết chương trình tính
S=2/3+2/6+2/9+…+2/36
bằng while…..do
Câu 2 : S:=0
For i:=1 to 50 do S:=s+1/2
Hãy biến đổi vòng lặp trên thành vòng lặp while do
Cảm ơn mấy bạn
ありがとう
Câu 1 :Viết chương trình tính S=2/3+2/6+2/9+…+2/36 bằng while-.do Câu 2 : S:=0 For i:=1 to 50 do S:=s+1/2 Hãy biến đổi vòng lặp trên thành vòng l
By Lyla
Câu 2
Program bai_tap;
Uses Crt;
Var. s,i: integer;
Begin
clrscr;
i:=1; s:=0;
while i <= 50 do
begin;
s:=s+1/2;
i:=i+1;
end;
writeln(‘ Kết quả là:=’,s);
readln;
End.
câu 1:
uses crt;
var i: integer;
s: real;
begin
clrscr;
while i<=36 do
begin
i:=i+3;
s:=s+(2/i);
end;
writeln (‘tong la: ‘,s:1:2);
readln;
end.
câu 2:
while i<=50 do
begin
i:=i+1;
s:=s+1/2;
end;