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.
ờ nhưng tại sao kêu t tag vậy Hùng, m tag ko đc ak ?
@Nguyễn Trần Thành Đạt
Tú Nguyễn B (Erik) Trương Quang Dũng hành động đi các bạn, đây là sân chơi của các bạn, cộng đồng đang chờ bạn, gia đình chờ bạn, bạn bè chờ bạn ><
uses crt;
var x:integer;
begin
clrscr;
readln(x);
writeln(x*x+x+1);
readln;
end.
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.
var P,x,y,z,t : integer ;
begin
write('nhap gia tri x'); readln(x);
write('nhap gia tri y'); readln(y);
write('nhap gia tri z'); readln(z);
write('nhap gia tri t'); readln(t);
P:=sqrt(x*x+9)*sqrt((5*x+3)/sqrt(x))-sqrt((x*x+x)/(2*x))+abs(z-9*x)+sqrt(((y+5)*(y+5))/abs(t+99)) ;
Write('Gia tri cua P=',P);
readln
end.
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
uses crt;
begin
clrscr;
writeln(10+4*sqr(15-10)/6+4);
readln;
end.
Đề bài phải cho giới hạn chứ . Với biểu thức của đề bài nếu áp dụng vào Pascal thì nó sẽ như vòng lặp vô hạn.