Viết chương trình tổng và tích 10 số tự nhiên đầu tiên
. Giúp
2 câu trả lời
Program baitap;
Uses crt;
Var i,S:integer;
T:longint;
Begin
Clrscr;
S:=0; T:=1;
For i:=1 to 10 do
Begin
S:=S+i;
T:=T*i;
End;
Writeln('Tong 10 so tu nhien dau tien:',S);
Writeln('Tong 10 so tu nhien dau tien:',T);
Readln
End.
Begin
s:=1;
for i:=1 to 10 do
begin;
write ('nhap so hag thu',i);
read(a);
s:=s x a;
end;
writeln('ket qua: ',s);
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
