viết chương trình tính tổng 1+3+5+...+t với t là một số tùy ý cho người sử dụng viết vào
2 câu trả lời
uses crt;
var s,i,t : integer;
Begin
Write('Nhap so tu nhien t tuy y :'); readln(t);
For i:=1 to t do
If i mod 2 = 1 then s :=s+i;
Write('Tong la :',s);
readln
end.
uses crt;
var t,s,i:integer;
begin
clrscr;
write('Nhap t: '); readln(t);
for i:=1 to t do
if i mod 2 = 1 then s:=s+i;
write('Tong la: ',s);
readln
end.
Câu hỏi trong lớp
Xem thêm