cho em hỏi acc lichess mới lập có tham gia được không ạ? Tại acc chính của em ở bên chess.com với lại acc mới lập thì elo có ảnh hưởng gì đến xếp trận hay phân loại không ạ ?

tham gia liền nha mn ol

Có 4 qui tắc:

- Tên khác nhau tương ứng với đại lượng khác nhau.

- Tên không trùng với từ khóa (begin, end, uses, var,...)

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

- Tên không chứa khoảng cách

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.

mk chắc đúng luôn đó! ^...^

-dãy liên tiếp không quá 127 kí tự

- bao gồm chữ số, chữ cái, dấu gạch dưới

- bắt đầu bằng chữa cái hoặc dấu gạch dưới

 

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.

 

1B 4C

2A 5A

3C 6C

7.

program TBC;

uses crt;

var a,b,tbc:real;

begin

clrscr;

write('nhap so a:');readln(a);

write('nhap so b:');readln(b);

tbc:=(a+b):2;

writeln('tbc cua hai so a va b la:',tbc:6:2);

readln;

end.

 

dễ mà@@@
 

Câu 1 : B

Câu 2 : A

Câu 3 : D

Câu 4 : C

Câu 5 :A

Câu 6 : C

Câu 7 :

Uses crt;

Var a,b,tb : integer;

Begin

clrscr;

Writeln('Nhap so a= '); Readln(a);

Writeln('Nhap so b= '); Readln(b);

tb := (a+b)/2;

Write('Trung binh cong hai so a va b la ',tb);

Readln

End.

b1: Nhập n.

b2:Nếu n chia hết cho 1 và n chia hết cho n thì n là số nguyên tố, ngược lại n không phải là số nguyên tố.

b3: Thông báo kết quả và kết thúc thuật toán.

program vantoc;

uses crt;

var v,s,t:real;

begin

writeln('nhap quang duong km');

readln(s);

writeln('nhap thoi gian h');

readln(t);

v:=s/t;

writeln('thoi gian la',v:4:2);

readln

end.

Uses crt;

var n:integer;

Begin

clrscr;

Writeln('Nhap so n= '); Readln(n);

Write('So vua nhap la ',n);

Readln

End.

Program tinh_tien_cong ;

Const don_gia = 15000 ;

Var so_gio , so_ngoai_gio , tien_cong : real ;

Begin

Write(' Hay nhap so gio lam ngay thuong : ' ) ;

Readln ( so_gio );

Writeln ( ' Hay nhap so gio lam ngoai gio : ') ;

Readln ( so_ngoai_gio );

tien_cong:= so_gio * don_gia + so_ngoai_gio *don_gia *2 ;

writeln ( ' so tien cong : ' , tien_cong : 9:3 , ' VND ' ) ;

Readln

End .

pascal chưa nhận được giá trị của h.

var a,b,c,P,S:real;

begin

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

write('nhap c: ');readln(c);

P:=a+b+c;

S:=a*a/2;

writeln('chu vi: ',P);

write('dien tich: ',S);

readln

end.

Vì là số đo cạnh tam giác nên bạn nên khai báo bằng kiểu dữ liệu real (số thực) thay vì integer (số nguyên).Phần giá trị biến S, vì a ứng với h nên \(\frac{ah}{2}=\frac{aa}{2}\)Xét tổng quan về nội dung cả hai chương trình này đều chưa đủ. Vì a=h => tam giác cần tìm diện tích và chu vi là tam giác vuông => phải thỏa mãn aa = bb + cc hoặc bb=aa+cc hoặc cc=aa+bb (định lí pitago)Nhưng trước hết, phải thỏa mãn bất đẳng thức tam giác: (dài lắm........ko viết đâu). Nếu bạn chưa học câu lệnh điều kiện thì chắc là 2 chương trình này đã đủ nội dung.

Vậy thì ........botay.com.vn.hemattroi

Giá trị của biến có thể được thay đổi.

Giá trị của hằng không thể thay đổi trong suốt chương trình.

khác nhau ở công thức nhập vào nhá và định nghĩa về nó nữa

Gía trị của biến có thể thay đổi

Gía trị của hằng không hề thay đổi trong suốt chương trình.

Uses crt;

Var a,b : integer;

Begin

Writeln('Tong hai so a va b la= ', a + b );

Readln;

End.

Cho phép viết lại :)

Uses crt;

Var a,b:integer;

Begin

clrscr;

Writeln('Nhap so a = '); Readln(a);

Writeln('Nhap so b = '); Readln(b);

Writeln('Tong hai so a va b la = ',a+b);

Readln;

end.

program tinhtong;

uses crt;

var a,b,s:integer;

begin

clrscr;

readln(a,b);

s:= a+b;

writeln('tong hai so a va b s la ',a+b);

readln;

end.