Câu 1:
uses crt;
var n:integer;
begin
clrscr;
write('Nhap so: '); readln(n);
if n mod 2=0 then write(n,' la so chan')
else write(n,' la so le');
readln;
end.
Câu 2:
uses crt;
var n:integer;
begin
clrscr;
write('Nhap so: '); readln(n);
if n>0 then write(n,' la so duong')
else write(n,' la so am')
readln;
end.
Câu 3:
uses crt;
var a:array[1..10000] of longint;
n,i,s:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
inc(s,a[i]);
end;
write('Tong: ',s);
readln;
end.
Câu 4:
uses crt;
var a,b,c:extended;
check:boolean;
begin
clrscr;
write('Nhap a,b,c: '); readln(a,b,c);
if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then begin check:=true; write('3 canh vua nhap la 3 canh tam giac') end
else begin check:=false; write('3 canh vua nhap khong phai 3 canh tam giac') end;
readln;
end.