Dùng For...to..do:
program tong;
uses crt;
var i: byte;
A: real;
Begin
clrscr;
A:=0;
for i:=1 to 21 do
if i mod 2<>0 then A:=A+1/i;
write('A = ',A:2:3);
readln
End.
Dùng While...do:
A:=0; i:=1;
while i<=21 do
begin
i:=i+1;
end;
<for...to...do>
program phuongt;
var i: integer;
a: real;
a:=0;
for i:=1 to 21 do if i mod 2 <> 0 then a:=a+1/i;
write('A = ', a);
end.
<while...do>
a:=0; i:=1;
if i mod 2 <> 0 then a:=a+1/i;
Việc Đinh Bộ Lĩnh sau khi lập ra nhà Đinh đã xưng “Đế” mà không xưng “Vương” có ý nghĩa như thế nào?
đọc tên oxit sau và phân loại chúng a)Fe2O3 b)P2O5
Theo em điều kiện nào để có một cuộc hôn nhân tốt đẹp, hạnh phúc?
1. Có mấy loại điện tích? Nêu quy ước về điện tích dương và âm? Nêu tương tác về hai điện tích cùng loại và khác loại. 2. Dựa vào cấu tạo nguyên tử cho biết khi nào vật nhiễm điện dương, khi nào vật nhiễm điện âm?
Cho câu trả lời nhanh lên nhé, đang gấp
tìm x,y nguyên biết (x^2+1)(x+1)=3^y
câu 1: sự kiện nào đánh dấu thất bại của pháp khi đánh chiếm bắc kì lần thứ nhất? câu 2: tại sao quân triều ở Hà Nội đông nhưng vẫn thua
Giúp em câu 1,5 với ạ ,em cảm ơn mọi người nhiều
cho tam giác abc có m n p lần lượt là trung điểm của bc ca ab. CMR: MA+MB+MC<1/2(AC+BC+AB)
Vào mùa xuân, với mong muốn nền kinh tế nông nghiệp phát triển, vua Lê thường tổ chức lễ hội gì?
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
