Nhập vào một số N nguyên dương,tìm 4 số là bội số của số N nguyên dương theo thứ tự tăng dần
2 câu trả lời
Bội nhỏ nhất của n mình tính là số đó lun được ko??
var n,i,d:longint;
a:array[1..100]of longint;
begin
write('nhap n');read(n);
i:=n-1;
while d<>4 do
begin
i:=i+1;
if i mod n=0 then
begin
d:=d+1;
a[d]:=i;
end;
end;
writeln('4 boi so nho nhat cua ',n,' la : ');
for d:=1 to 4 do writeln(a[d]);
readln;
end.
program phuongt;
uses crt;
var n, i: integer;
begin
clrscr;
write('Nhap n duong = '); readln(n);
writeln('4 so la boi cua ', n, ':');
write('B(', n, ') = ');
if n<1 then write('n duong!') else
for i:=1 to 4 do write(i*n:3);
readln
end.
Câu hỏi trong lớp
Xem thêm
