Viết phương trình pascal : Nếu số tự nhiên a chia hết cho cho số tự nhiên b người ta gọi a là bội của b. Cho 2 số TN x và n. Hãy xuất ra các bội của x nhỏ hơn n
Input: 2 số x và n ( 0<=x<=100) và (x<=n<=1000)
Output: Xuất các bội của x theo thứ tự tăng dần (các số đó chia hết cho x và nhỏ hơn n)
VD: x=90 và n=1000 nên các số bội là 90,180,270,360,450,540,630,720,810,900,990< 1000
Bài mk nhé bạn ^~^
Cho mk xin câu tlhn nhé bạn >ω<
Chúc bạn học tốt !
uses crt;
var x,n,i:longint;
begin
clrscr;
repeat write(‘x=’);readln(x); until(0<=x)and(x<=100);
repeat write(‘N=’);readln(N); until(x<=n)and(N<=1000);
for i:=x to n do if i mod x=0 then writeln(i);
readln
end.uses crt;
var x,n,i:longint;
begin
clrscr;
repeat write(‘x=’);readln(x); until(0<=x)and(x<=100);
repeat write(‘N=’);readln(N); until(x<=n)and(N<=1000);
for i:=x to n do if i mod x=0 then writeln(i);
readln
end.
Test:
program ct;
uses crt;
var x,n,i:integer;
begin clrscr;
write(‘Nhap x va n: ‘); readln(x,n);
if (x<=n) and (n<=1000) then
for i:=1 to n do
if i mod x=0 then write(i:5);
readln;
end.
Học tốt!