Viết chương trình tính tích của các số từ 15 đến 35 in ra màn ình tích đó.
2 câu trả lời
program oken;
uses crt;
var i: byte;
t: qword;
begin
clrscr;
t:=1;
for i:=15 to 35 do
t:=t*i;
Writeln('tich cua cac so tu 15 den 35: ',t);
readln;
end.
program ctdt;
uses crt;
var i,tong:integer;
(*-----------------------*)
begin
clrscr;
tong:=0;i:=0;
while tong<=100 do
begin
i:=i+1;
tong:=tong+i;
end;
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
