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 :>>>>
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm
