Nhập 1 số nguyên a từ bàn phím hãy lập trình tính tổng các số lẻ từ 1 đến a Không cóp trên mạng Đang cần gấp Cảm ơn
2 câu trả lời
program bai_giai;
uses crt;
var a,i,s:longint;
begin
clrscr;
write('a=');readln(a);
s:=0;
for i:=1 to a do if(i mod 2=1)then inc(s,i);
write(s);
readln;
end.
đây nha bạn ơi
program tong ;
uses crt;
var i, a, s : integer;
begin
clrscr;
write(' nhap so nguyen a :');readln(a);
s := 0;
for i := 1 to a do
if ( i mod 2 <>0 ) then
s := s + i ;
writeln ( 'tong so le tu 1 den ', a , ' la :' , s );
readln
end.
Câu hỏi trong lớp
Xem thêm
