Viết chương trình tính tích × x x x x x
Pascal
Quảng cáo
1 câu trả lời 152
program TinhTich;
var
i: integer;
tich: real;
begin
tich := 1;
for i := 5 to 35 step 5 do
begin
tich := tich * 6 / i;
end;
writeln('Gia tri cua tich la: ', tich:0:5);
readln;
end.
var
i: integer;
tich: real;
begin
tich := 1;
for i := 5 to 35 step 5 do
begin
tich := tich * 6 / i;
end;
writeln('Gia tri cua tich la: ', tich:0:5);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
44988 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34460 -
Đã trả lời bởi chuyên gia
30241 -
Hỏi từ APP VIETJACK27169
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
21825
Gửi báo cáo thành công!
