Question

Nhập số nguyên dương N (1≤ N ≤ 30000) từ bàn phím  và đưa ra màn hình thông tin sau :

Dòng 1: số M là giá trị biểu thức √1 + √2 + .... + √N

Dòng 2: số nguyên tố nhỏ nhất còn lớn hơn M*N

Dòng 3: số tự nhiên nhỏ nhất có số ước bằng phần nguyên của √N, nếu không có in số 0. 

Mọi Người giúp em với ạ. em đang cần câu trả lời gấp ạ

Answer 1

uses crt;

var n,i:integer;

m:real;

begin

clrscr;

repeat

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

until (1<=n) and (n<=30000);

m:=0;

for i:=1 to n do 

  m:=m+sqrt(i);

writeln('m=',m:4:2);

readln;

end.