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.

Câu 1:

a) (a+b)*(a+b)*(d+e);

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

Câu 2:

Qui tắc đặt tên trong ngôn ngữ lập trình Pascal:

- Tên không bắt đầu bằng chữ số.

- Tên không có khoảng cách.

- Tên không được trùng với từ khóa.

- Các đại lượng khác nhau có tên khác nhau.

program tinh_gia_tri_bieu_thuc;

uses crt;

var n,j:integer;

R:extended;

begin

clrscr;

R:=0;

write('Nhap so mu n=');readln(n);

for j:=1 to n do

R:=R+ exp(n*ln(j));

writeln('Gia tri cua R=',R:1:0);

end;

readln;

end.

program P;

var x, y, P: integer;

begin

writeln('nhap x va y = ');

readln(x,y);

P:=x*x+y*y+x*y;

writeln('gia tri bieu thuc = ',P);

readln

end.

Bạn thử chạy chương trình xem có được ko rồi nói lại cho mình nhé.

Mik

ko biết

mik viết ct luôn nha bạn tự luận thuật toán vì bài này dễ

var d,i,n:integer;

begin

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

d:=0;

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

writeln('Tong la: ',d);

readln;

end.

program bai1;

var i,n,s,t:longint;

function tt(a:longint):longint;

var i,s:longint;

begin

s:=1;

for i:=1 to a do

s:=s*a;

tt:=s;

end;

begin

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

s:=0;

for i:=1 to n do

begin

t:=tt(i);

s:=s+t;

end;

write('Tong la: ',t);

readln

end.

program Bieu_Thuc;

uses crt;

var x,S:integer;

begin

writeln('Nhap x vao:');

readln(x);

S:=0;

S:=S+(sqr(x)-1);

writeln('Gia tri la:',S);

readln

end.

Lời giải:

Bài 1 :

program hotrotinhoc ;

var i,x : integer ;

begin

write('x='); readln(x);

if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');

while x<>0 do

begin

write('x='); readln(x);

if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');

end;

readln

end.

Bài 2 bạn kiểm tra lại đề nhé N ở đâu bạn ???

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