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