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 ><
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.
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.
câu 2 bạn xem lại đề nhé
câu 1:
bước 1: nhập n
bước 2: t:=0; i:=2;
bước 3: t:=t+1/i; i:=i+1;
bước 4: nếu i<=n thì quay lại bước 3
bước 5: xuất t
bước 6: kết thúc
!!!
Program bai1;
uses crt;
var n , i : integer;
s: real;
begin
clrscr;
write('nhap so n ='); readln(n);
for i:= 1 to n do
s:=s+sqrt((n-1)+sqrt(n));
writeln('tong s = ' ,s:4:2);
readln;
end.
program bai1;
uses crt;
var
begin
clrscr;
write('Nhap so N=);readln(n);
s:=0;
for i:=i to n do
s:=s+sqrt(i+sqrt(i+1));
writeln('Tong la ',s);
readln
end.