Question

Câu 2 (7,0 điểm). Cho một số nguyên dương n.

 

Yêu cầu: Hãy tìm số nguyên dương nhỏ nhất có chiều dài là n mà đồng thời chia hết cho

 

hai số 3 và 7. Chiều dài của một số nguyên dương là số lượng các chữ số trong biểu diễn

 

thập phân của số đó mà không có số 0 ở đầu.

 

Dữ liệu vào: là một dòng duy nhất chứa số nguyên dương n (2 ≤ n ≤ 50).

 

Dữ liệu ra: là một dòng duy nhất in ra một số nguyên dương là kết quả bài toán.

 

Rằng buộc:

 

Có 30% số test ứng với 30% số điểm của bài thỏa mãn điều kiện: 2 ≤ n ≤ 9;

 

Có 50% số test ứng với 50% số điểm của bài thỏa mãn điều kiện: 10 ≤ n ≤ 18;

 

Có 20% số test ứng với 20% số điểm của bài thỏa mãn điều kiện: 19 ≤ n ≤ 50.
pascal nha giup em vs a

Answer 1

var n,i:integer;

begin

repeat

write('Nhap n = ');readln(n);

if (n < 2) or n > 50 then write('Nhap sai, nhap lai so n = ');readln(n);

until (n >= 2) and (n <= 50);

for i:=2 to n do

if (i mod 3 = 0) and (i mod 7 = 0) then

begin

write(i);

halt;

end;

readln;

end.