B1 tính tổng S= 1+3+......+(2n+1) với n được nhập vào bàn phím và n<=10^9 sử dụng câu lệnh for B2 Tính tổng các số chẵn S= 2+4+.......+2n với n được nhập vào bàn phím và n>=10^9 sử dụng câu lệnh for LÀM HỘ MÌNH VỚI Ạ MÌNH CẢM ƠN NHIỀU Ạ.

2 câu trả lời

nguyenquanghuy24#

Bài 1 :

program tinh_tong;

uses crt;

var s, i, n : integer;

begin

clrscr;

write('nhap so nguyen n :');readln(n);

s := 0;

for i :=1 to n do

if ( i mod 2 <> 0 ) then 

s := s + i;

writeln('tong S la  :', s );

readln

end.

Bài 2 :

program tinh_tong;
uses crt;
var s, i,  n : integer;
begin
clrscr;
write('nhap so nguyen n :');readln(n);
s := 0;
for i :=1 to n do
if ( i mod 2 = 0 ) then 
s := s + i;
writeln('tong S la :', s );
readln
end.

Câu hỏi trong lớp Xem thêm