0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1003
530
Đây là câu trả lời đã được xác thực
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
1.
program ct;
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('tong la:',s);
readln
end.
2.
program ct;
uses crt;
var t,n,i:integer;
begin
clrscr;
t:=0;
for i:=1 to 200 do t:=t+i;
writeln('tong cua 200 so nguyen dau tien la:',t);
readln
end.
3.
program ct;
uses crt;
var tich,n,i:integer;
begin
clrscr;
tich:=1;
for i:=1 to 30 do tich:=tich*i;
writeln('tich cua 30 so nguyen dau tien la:',tich);
readln
end.
4.
program ct;
uses crt;
var i,n,a:integer;
begin
clrscr;
a:=1;
for i:=1 to a do a:=a*i;
writeln('n:=',a);
readln
end.
5. Thiếu dữ kiện
Hãy giúp mọi người biết câu trả lời này thế nào?
1)
program ct;
uses crt;
var i,n:integer;
S:longint;
begin clrscr;
writeln('Nhap so n: '); readln(n);
S:=0;
for i:=1 to n do
S:=S+i;
writeln('Tong S la: ',S);
readln;
end.
2)
program ct;
uses crt;
var i,n:integer;
S:longint;
begin clrscr;
S:=0;
for i:=1 to 200 do
S:=S+i;
writeln('Tong 200 so nguyen dau tien la: ',S);
readln;
end.
3)
program ct;
uses crt;
var i,n:integer;
T:longint;
begin clrscr;
T:=1;
for i:=1 to 30 do
T:=T*i;
writeln('Tich 30 so tu nhien dau tien la: ',S);
readln;
end.
4)
program ct;
uses crt;
var i,n:integer;
gt:longint;
begin clrscr;
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln('n!= ',gt);
readln;
end.
Học tốt!
Hãy giúp mọi người biết câu trả lời này thế nào?
1079
1646
cau 1 co sai ko ạ
6
1
Theo mik đúng r ák
Bảng tin
1003
15884
530
vậy thì mình làm tới câu 4 thôi
1003
15884
530
mà cho mình hỏi bạn học lớp mấy vậy
869
24056
641
8.
0
33
0
mình cx ko bik nx á bạn tại thầy đưa đề vậy í
0
235
0
X^n mà bạn
0
180
0
x mũ n nha
0
30
0
Giải jup câu 5 ik ạ x mũ n á
35
455
11
câu 1 có đúng ko