Viết chương trình tính tích: S=7^3*8^3*9^3*....*n^3 Theo hai câu lệnh *While do *For do
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
Những câu hỏi liên quan
Câu lệnh for ... do
program Tinh_Tich;
var
n, i: integer;
S: double;
begin
write('Nhap vao so nguyen N: ');
readln(n);
S := 1;
for i := 7 to n do
begin
S := S * i * i * i;
end;
writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);
readln;
end.
Câu lệnh while .... do
program Tinh_Tich;
var
n, i: integer;
S: double;
begin
write('Nhap vao so nguyen N: ');
readln(n);
S := 1;
i := 7;
while (i <= n) do
begin
S := S * i * i * i;
i := i + 1;
end;
writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);
readln;
end.