Viết chương trình nhập vào từ bàn phím 2 số x,y nếu xy thì in số 0 ra màn hình.
0 bình luận về “Viết chương trình nhập vào từ bàn phím 2 số x,y nếu x<y thì đếm và in ra các số chia hết cho 3 trong khoảng từ x đến y nếu x>y thì in số 0 ra màn hình”
program BT;
uses crt;
var x,y,i,d: integer;
Begin
clrscr;
write(‘Nhap x: ‘); readln(x);
write(‘Nhap y: ‘); readln(y);
write(‘Cac so chia het cho 3 tu ‘,x,’ den ‘,y,’: ‘);
program BT;
uses crt;
var x,y,i,d: integer;
Begin
clrscr;
write(‘Nhap x: ‘); readln(x);
write(‘Nhap y: ‘); readln(y);
write(‘Cac so chia het cho 3 tu ‘,x,’ den ‘,y,’: ‘);
if x<y then
begin
for i:=x to y do
if i mod 3=0 then
begin
write(i,’ ‘);
d:=d+1;
end;
end
else write(‘0’);
readln
End.
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.