uses crt;

var m,n,i:byte;

s: integer;

f1,f2:text ;

begin

assign(f1,'dulieu.inp');reset(f1);

read(f1,m,n);

for i:=m to n do

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

assign(f2,'ketqua.out');

rewrite(f2);

write(f2,s);

close(f1);

close(f2);

readln;

end.

câu 1:

chương trình con gồm 2 loại:

-hàm

-thủ tục

cấu trúc cơ bản của CTC:

<Phần đầu>

[<Phần khai báo >]

<Phần thân >

sự khác nhau giữa hàm và thủ tục:

– Hàm sau khi thực hiện công việc sẽ trả về một giá trị cho tên hàm.

– Thủ tục khi thực hiện công việc không trả về một giá trị cho tên thủ tục. Ví dụ: Chương trình tính tích của hai số nguyên a và b.

câu 2:

uses crt;

var m,n,i:byte;

s: integer;

f1,f2:text ;

begin

assign(f1,'dulieu.inp');reset(f1);

read(f1,m,n);

for i:=m to n do

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

assign(f2,'ketqua.out');

rewrite(f2);

write(f2,s);

close(f1);

close(f2);

readln;

end.