Program Marble_Top;

uses crt;

var i,n,t:integer;

begin

write('nhap n '); readln(n);

for i:= 1 to n do

if i*i =n then t:= t+1;

if t=1 then write (n, ' la so chinh phuong') else write (n, ' khong la so chinh phuong');

readln

end.

Program Tinh_toan;

uses crt;

var i,n:integer;

S:longint;

begin

For i:=1 to 5 do S:= S+i;

write('tong S = ' , S);

readln

end.

program tamgiac;

uses crt;

var a,b,c:integer;

begin

clrscr;

writeln('nhap ba canh cua tam giac'); readln(a,b,c);

if a+b>c and a+c>b and b+c>a then write(a,' ',b,' ',c 'la ba canh cua tam giac') else write(a,' ',b,' ',c 'khong la ba canh cua tam giac');

readln

end.

minh viet lon, sua lai: var a,b: integer;

program ct_dautien;

uses crt;

var x:integer;

begin

writeln('moi nhap a,b');readln(a,b);

if a>b then write(a) else write (b);

readln

end.

program CT_dautien;

uses crt;

var a:integer;

begin

clrscr;

writeln('moi nhap so a');readln(a);

if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');

readln

end.

Cho sơ đồ phản ứng:

X + H 2 d ư → N i ,   t o Y Y +   N a →   C H 3 _ C H 2 _ C H 2 _ O N a + H 2

Số chất X (mạch hở, có cấu tạo bền) thỏa mãn sơ đồ trên là:

A. 3.

B. 5.

C. 2.

D. 4.

var x:integer;

y quen cho var ban ghi la: var x: integer