Question

Viết chương trình nhập vào 2 số nguyên dương x, y(x<y)

-Đếm số các số chẵn và lớn hơn 100

_Tính tổng số lẻ hoặc chia hết cho 5 trong khoảng từ x đến y(làm bằng 2 cách for do và while do)

Answer 1

Viết chương trình tính tổng số lẻ:

Program vct;

Uses crt;

Var

S,x,y:integer;

begin

for i:=x to y do

begin

if (i mod 2 = 1) then S:=S+i;

end;

write(S);

readln;

end.

Viết chương trình tính tổng số chia hết cho 5:

Program vct;

Uses crt;

var

S,x,y:integer;

begin

for i:=x to y do

begin

if (i mod 5 = 0) then S:=S+i;

end;

write(S);

readln;

end.

Sử dụng lệnh while...do...(làm tương tự) thêm vào câu lệnh inc(i).

Answer 2

Xin lỗi mình thiếu phần nhập x,y;

Trước dòng lệnh for...do...(hoặc while...do...) thêm vào phần này nhé:

writeln('moi nhap x: '); readln(x);

writeln('moi nhap y: '); readln(y);

Đếm các số chẵn lớn hơn 100 (làm tương tự);

Lệnh if () then được thay vào là:

if ((i>100) and (i mod 2 = 0) then inc(dem);