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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận