13) Viết chương trình nhập vào 3 số nguyên dương ????, ????, ????. Xuất ra màn hình tất cả bội chung của ???? và ????
có giá trị không vượt quá ????, các bội chung nằm trên cùng dòng và cách nhau khoảng trắng. Lập trình pascal. Dùng longint và hàm for. Thanks :>>>>
program boichung;
uses crt;
var a,b,c:longint;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
write(‘Nhap c: ‘); readln(c);
for i:=1 to c do
if (i mod a=0) and (i mod b=0) then write(i,’ ‘);
readln
end.
uses crt;
var a,b,c,i:longint;
begin
clrscr;
repeat
write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
write(‘c=’);
readln(b);
until (a>0) and (b>0) and (c>0);
writeln(‘BC cua a,b la:’);
for i:=1 to c do
if (i mod a=0) and (i mod b=0) then writeln(i);
readln
end.