While....do :
uses crt;
var i : integer;
t : real;
begin clrscr;
t:=0;
while i<=100 do begin
t:=t+1/i;
i:=i+1;
end;
write('Nhap t=', t);
readln
end.
For ...to..do :
var i : integer; t : real;
for i:=1 to 100 do t:=t+1/i;
wwrite('Tong t=', t);
Cách `1`
Program Hotboy ;
Var i : integer;
S: real;
Begin
Clrscr;
For i:=1 to 100 do
S:=S+1/i;
Write('Tong la',S);
Readln
End.
Cách `2`
Program Hotboy;
Uses crt;
S:=0;
while i<=100 do
S:=S+1/i; inc(i);
End;
Write('Tong la', S);
HN-Long an 300km, Một ng từ HN - long an vs vận tốc 68km/h , một ng tư Long an về HN vs vận tốc là 52km/h , họ đi cùng đường hỏi, mấy h hai bọn họ gặp nhau
các bạn ơi mình đang cần gấp nhé các bạn soạn giúp mình môn tiếng anh lớp 8 unit10 bài a closer look 2 nhé tiếng anh tập 2 nhé ai nhanh nhất mình cho 5 sao ạ
giúp em giải bài này với ạ.Em cảm ơn
câu 1 các mốc thời gian ( các cuộc đấu tranh thời bắc thuộc ) - nước vạn xuân được thành lập trong hoàn cảnh nào ? ý nghĩa ra dời nước vạn xuân ? - những thành tựu văn hóa của champa ? nhật xét ? câu 2 các cuộc đấu tranh của nhân dân ta trong thời kì bắc thuộc giúp m luôn nha h để mai kiểm tra 45 pppp
Giups mik vs ạ mik đang cần gấp 😅
Với giá trị nào của tham số m thì phương trình sinx +mcosx=√5
Từ cuộc đấu tranh ngoại giao sau Cách mạng tháng 8 năm 1945, có thể rút ra bài học kinh nghiệm j cho cuộc đấu tranh bảo vệ chủ quyền Tổ quốc hiện nay ???
Nêu các pp chọn giống, phối giống
Nếu được tham gia diễn đàn phòng chống bạo lực gia đình và xâm hại phụ nữ , trẻ em, em muốn đặt câu hỏi tại diễn đàn như thế nào ????
Các bạn ơi giúp mk với ạ !!! Hết lun nhé Ai lm đúng hết mk sẽ bình chọn lm ng trả lời hay nhất
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến