Mọi người giúp mik với. mik hứa sẽ vote 5 sao nếu đúng ạ
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
Lưu ý: Mik cần dạng đơn giản nhất có thể
Mọi người giúp mik với. mik hứa sẽ vote 5 sao nếu đúng ạ 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à
By Maya
uses crt;
var x,n ,i : integer;
begin clrscr;
repeat write(‘Nhap x:’); readln(x)
until (0<=x) and (x<=100);
repeat write(‘Nhap 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.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: