Question

Em hãy viết chương trình Pascal nhập vào một số tự nhiên n thoả mãn 0<n<100, nếu sai yêu cầu nhập lại, tính và in ra các bội có 4 chữ số của n.Giups vs ạ cần gấp

 

Answer 1

program MultiplesOfN;
var
  n, i: integer;
begin
  repeat
    write('Nhap vao so nguyen duong n (0<n<100): ');
    readln(n);
  until (n > 0) and (n < 100);

  writeln('Cac boi so cua ', n, ' co 4 chu so la:');

  for i := 1000 to 9999 do
  begin
    if (i mod n = 0) then
    begin
      writeln(i);
    end;
  end;

  readln;
end.