0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1030
1058
1.
program phuongt;
uses crt;
var i, s: integer;
begin
clrscr;
i:=1;
s:=0;
while i<=1000 do
begin
s:=s+i;
i:=i+1;
end;
write('S = ', s);
readln
end.
2.
program phuongt;
uses crt;
var B: array[1..99] of integer;
n, i, d, s: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('B[', i, '] = '); readln(B[i]);
if B[i]>0 then
begin
d:=d+1;
s:=s+B[i];
end;
end;
writeln('Tong = ', s);
write('Co ', d, ' so duong trong day');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
0
40
0
Cám ơn 2 bn
833
12808
1151
Mink sin nghỉ hôm nay
833
12808
1151
Bị mẹ đập đt
833
12808
1151
Mẹ đến