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.
Lời giải :
program hotrotinhoc ;
var i,n : integer ;
A: real ;
begin
write('nhap gia tri n='); readln(n);
A:=1;
for i:=1 to n do
A:=A*(1+1/(i*i));
write('Ket qua la',A);
Readln
end.
Câu 1 :
a) (a+b)*(a+b)*(d+e)
b) a*x*x+b*x*x+c*x
Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?
Câu 3:
Uses crt;
Var S,a,b:real;
Begin
clrscr;
Writeln('Nhap chieu dai a = '); Readln(a);
Writeln('Nhap chieu rong b = '); Readln(b);
S := a*b;
Write('Dien tich hinh chu nhat la ', S );
Readln;
End.
xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal
b: uses crt;
begin
clrscr;
writeln(sqr(15+5)*sqr(6+4)*(6+4));
readln;
end.
uses crt;
var x:integer;
begin
clrscr;
readln(x);
writeln(x*x+x+1);
readln;
end.
program giatriP ;
var P,a,b,c,d:real ;
begin
writeln('nhap a, b, c, d=');
readln(a, b, c, d);
P:=a*a+b*b-(c+d)*(c+d);
writeln('P= ');
readln
end.
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
cout<<fixed<<setprecision(2)<<sqrt(60)/sqrt(6);
return 0;
}
uses crt;
begin
clrscr;
writeln(10+4*sqr(15-10)/6+4);
readln;
end.