Viết chương trình nhập vào từ bàn phím 2 số x,y nếu x
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
By Adalyn
Viết chương trình nhập vào từ bàn phím 2 số x,y nếu x
By Adalyn
Viết chương trình nhập vào từ bàn phím 2 số x,y nếu x
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.