Viết chương trình tính tích các số tự nhiên từ 5 đến 50
Quảng cáo
1 câu trả lời 2348
Begin
s:=1;
for i:=1 to 50 do
begin;
write ('nhap so hag thu',i);
read(a);
s:=s x a;
end;
writeln('ket qua: ',s);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
4336
Gửi báo cáo thành công!
