Cấu trúc rẽ nhánh và lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Hồng Ngọc

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)

Trương Hồng Hạnh
24 tháng 1 2018 lúc 19:54

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).

Trương Hồng Hạnh
24 tháng 1 2018 lúc 19:58

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);


Các câu hỏi tương tự
Nguyễn Thị Hồng Ngọc
Xem chi tiết
phạm hương trà
Xem chi tiết
Hạ Nhật
Xem chi tiết
chương nguyễn
Xem chi tiết
Machunsu
Xem chi tiết
Lê Thái Hưng Thịnh
Xem chi tiết
phươngplayergamer
Xem chi tiết
Lê Thái Hưng Thịnh
Xem chi tiết
Vũ Ngọc Lan
Xem chi tiết