Question

1. Viết chương trình tính tổng các số lẻ từ 1 đến N (N là số nhập từ bàn phím).

2. Viết chương trình tính tổng các số chẵn từ 1 đến N (N là số nhập từ bàn phím).

Answer 1

1...

program bai1;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do

if i mod 2<>0 then s:=s+i;

write('s= ',s);

readln

end.

Answer 2

program bai2;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do

if i mod 2=0 then s:=s+i;

write('s= ',s);

readln

end.

Answer 3

1.

program tong_le;

uses crt;

var s,n,i:integer;

begin

clrscr;

s:=0;

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

for i:=1 to n do

if i mod 2<>0 then s:=s+i;

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

readln

end.

2.

bn khai báo như ở trên

begin

clrscr;

s:=0;

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

for i:=1 to n do

if i mod 2=0 then s:=s+i;

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

readln

end.

XONG RÙI ĐÓ!!

Answer 4

1.

program tongle;

uses crt;

var i,s,n:integer;

begin

clrscr;

s:=0;

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

for i:=1 to n do

if i mod 2<>0 then s:=s+i;

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

readln

end.

2.

program tongchan;

uses crt;

var i,s,n:integer;

begin

clrscr;

s:=0;

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

for i:=1 to n do

if i mod 2=0 then s:=s+i;

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

readln

end.

XONG RÙI!!!