Quảng cáo
2 câu trả lời 316
Var i ,n : integer;
T : real;
Begin
write ('n=') ; read (n) ;
T:= 1;
For i:= 1 to n do
T:= T * i;
Writeln (' Tich của ' ,n,' so dau tien la' , T );
Readln;
End.
Var i : integer;
S : real;
Begin
S:= 0;
For i:=1 to 10 do S:= S + 1/i;
Write (S);
Readln;
End.
bac ho vi dai
· 4 năm trước
og nghĩ og có lên top 1 kko
☯nadttg,rudde de☯
· 4 năm trước
chắc ko
ThuầnThạch
· 4 năm trước
Lên đc tóp 1 mà
Cj lên đc chị giỏi quá
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45584
-
Đã trả lời bởi chuyên gia
29017 -
Hỏi từ APP VIETJACK28522
Gửi báo cáo thành công!
