Viết chương trình tính tích các số nguyên từ 1 đên 10 P=1*2*3*....*10 (Gợi ý là giá ban đầu của p:=1) Giúp mik đi mik đang cần gấp!
2 câu trả lời
uses crt;
var i, P: longint;
begin
P:=1;
for i:=1 to 10 do P:=P*i;
writeln('Gia tri cua P la: ',P);
readln;
end.
Program tinhtich;
Uses crt;
Var i:integer;
P:longint;
Begin
P:=1
write('Gia tri cua P = 1*2*3*...*10 la: ');
for i:=1 to 10 do P=P*i;
Readln
End.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
