a) a*a+1-2=b

b) (15*15)+((16+a)*(16+a))=c

c) 1/((15+1)*(15+1))-6=b

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

#include <bits/stdc++.h>

using namespace std;

long long s1,s2,s3,s4,i;

int main()

{

s1=0;

for (i=1; i<=100; i++) s1=s1+i*i;

s2=0;

for (i=1; i<=100; i++) if (i%2==1) s2+=i;

s3=0;

for (i=1; i<=100; i++) 

{

if (i%2==1) s3+=i*i;

else s3-=i*i;

}

s4=0;

for (i=1; i<=100; i++)

{

if (i%2==1) s4+=i;

else s4-=i;

}

cout<<s1<<" "<<s2<<" "<<s3<<" "<<s4;

return 0;

}

\(x^4+x^3+x^2+2\)

\(=x^4+2x^3-x^3-2x^2+2x^2+x^2+2x-2x+2\)

\(=\left(x^4+2x^3+2x^2\right)-\left(x^3+2x^2+2x\right)+\left(x^2+2x+2\right)\)

\(=x^2\left(x^2+2x+2\right)-x\left(x^2+2x+2\right)+\left(x^2+2x+2\right)\)

\(=\left(x^2+2x+2\right)\left(x^2-x+1\right)\)

tất cả các câu đều là s:=s+i hay s:=s+1/sqr(i)..vân vân bạn ạ

ko dc bạn ak

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.

var i,n:integer;

s:real;

begin

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

s:=0;

for i:=1 to n do s:=s+(1/(i*i));

write(s);

readln;

end.

Câu 2:

-Giống: Đều có tác dụng đọc dữ liệu

-Khác:

+Read: Đọc xong không xuống dòng

+Readln: Đọc xong rồi xuống dòng

Câu 3:

a) a*x*x*x+b*x*x*x+c*x+d

b) (4*sqr(x)-7*x-5)/(x-7)

c) (a+b)/(a-b)-(a-b)/(a+b)

Câu 4:

a) Integer;

b) Real;

c) Real;

Câu 1 bạn xem lại đề

không có quy tắc viết từ khóa trong pascal nhé bạn

a) đúng

b) đúng

c) đúng

d) kết quả phụ thuộc vào biến x

nếu x<=1 thì đúng

ngược lại thì sai