0
0
Tính tổng sau:T=1+5+10+15+...+n(n là số tự nhiên được nhập từ bàn phím)-viết bằng hai câu lệnh
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
7
2
C1:
uses crt;
var
T,n,i : integer;
begin
T:=1;
for i:=1 to n do
if i mod 5=0 then T:=T+i;
if (n mod 5)<>0 then T:=T+n;
writeln('T=',T);
readln;
end.
C2:
uses crt;
var T,i :integer;
begin
T:=1;
i:=0;
while i<=n do
begin
i:=i+1;
if i mod 5=0 then T:=T+5;
end;
if (n mod 5)<>0 then T:=T+n;
write('T= ',T);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
518
518
uses crt;
var T:integer;
begin
clrscr;
T:=0;
while T<n do
T:=T+5
Write('T= ',T);
readln;
end.
________________________
uses crt;
var t,i:longint;
begin
clrscr;
for i:=5 to n do
if i mod 5 =0 then t:=t+i;
write('T = ',t);
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