program HOC24;
var i: integer;
s: real;
begin
i:=1;
while i<7 do
begin
i:=i+1;
s:=s+1/i;
end;
write(s:1:2);
readln
end.
Đúng 0
Bình luận (0)
Bài 6. Câu lệnh điều kiện
Các câu hỏi tương tự
Câu 2 : Cho vòng lặp:S:0;For i:1 to 20 doS:s + i/2;Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
Đọc tiếp
Câu 2 : Cho vòng lặp:
S:=0;
For i:=1 to 20 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
Câu 2 : Cho vòng lặp:S:0;For i:1 to 20 doS:s + i/2;Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do mình đang cần gấp ạ
Đọc tiếp
Câu 2 : Cho vòng lặp:
S:=0;
For i:=1 to 20 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
mình đang cần gấp ạ
i:=1,J:=1;
while i<5 do i=i+1,j=j+i;
giá trị cuối của i,j
Viết chương trình in ra màn hình Dãy số từ 1 đến n bằng ngôn ngữ lập trình Pascal dùng lệnh lặp for..... do với n được nhập vào từ bàn phím
Anh (Chị) hãy sử dụng vòng lặp For, While, Do...While để viết chương trình tính N! với từng loại vòng lặp và in kết quả của theo từng loại vòng lặp
viết chương trình tính tổng các số chẵn từ 1 đến 100 ( mình chưa học lệnh while ạ nên xin mn đừng dùng lệnh while )
Viết chương trình tính tổng của số tự nhiên từ 10-50 sử dụng lệnh while do
gia su S la tich cua n so tu nhien dau tien . dung cau lenh lap while ... do viet chuong trinh xac dinh
n bang bao nhieu de S nho nhat lon hon 10000
giup mk di ma bon mk lm trong bai kiem tra do
Tin8
Viết chương trình nhập N số nguyên từ bàn phím, hãy tính và in ra màn hình kết quả của tổng các số nhập vào ( sử dụng lệnh for... do) hoặc (lệnh while..... do )