Var a:integer;
Begin
Writeln('nhap mot so nguyen: '); Readln(a);
If a mod 2 = 0 then writeln(a,' la so chan')
        else writeln(a,' la so le');
End.

Var x,y: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=x+y;
y:=x-x;
x:=y;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

Có 2 cách là nay vs cái gửi trc nhưng cách này ổn hơn nha
Var x,y,t: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=t;
y:=x;
y:=t;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

Có thể chứa đc số bức ảnh là: 512 : 12 = 42,666 bức

=> chứa đc 42 bức

Tham khảo: (quên r)

Có thể chứa được:
512 :  12  ≈ 42  bức ảnh

repeat 8[repeat 3[fd 100 rt 120]fd 100 lt 360/8]

Var a,b,c: integer;
begin writeln('nhap ba so duong: ');Readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('3 so nay co the la do dai 3 canh cua 1 tam giac')
else writeln('3 so nay khong the la do dai 3 canh cua 1 tam giac');
End.

C.Website có 1 người hoặc một tổ chức quản lý

giúp mik vs

Var k: integer;
begin
Writeln('nhap so k: '); Readln(k);
if k mod 2 = 0 then writeln('k =', k+1)
else writeln('k=',k+2);
end.