K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

17 tháng 4 2018

program tinhp;

uses crt;

var x,n,i: integer;

s: real;

begin

write('Nhap n:');

readln(n);

write('Nhap x:');

readln(x);

s: sqrt(x);

for i:=1 to do s:= sqrt (x+s);

write('tong s=',s:6:2);

readln;

end.