Câu 2: 

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=100 thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

Câu 3:

Dạng thiếu: if <điều kiện> then <câu lệnh>;

Dạng đủ: if <điều kiện> then <câu lệnh> 

else <câu lệnh>;

Câu 4: 

uses crt;

var m,n:integer;

begin

clrscr;

write('Nhap m='); readln(m);

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

if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')

else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');

readln;

end.

Câu 5: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')

else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')

else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')

else if (a=b) and (b=c) then writeln('Tam giac deu')

else writeln('Day khong phai la tam giac deu hay tam giac can');

readln;

end.

tên là do người dùng đặt cho các đối tượng, đại lượng trong chương trình

Program So sanh;

Uses crt;

Var m, n= integer;

Begin

     Clrscr;

     Writeln('Hay nhap so m va n'); 

     if m > n then writeln(m lon hon n);

     if m < n then writeln(m nho hon n);

     else writeln('m bang n');

     readln

End.

Câu 1: 

uses crt;

var t:real;

i:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do 

  t:=t+(sqr(i) mod (2*i));

writeln('So tien sau cung la: ',t:0:0);

readln;

end.

Câu 2: 

const fi='dxau.inp';

fo='dxau.out';

var f1,f2:text;

st:string;

x:char;

dem,i,d:integer;

a:array[1..255]of integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

readln(f1,x);

d:=length(st);

dem:=0;

for i:=1 to d do 

  if st[i]=x then 

begin

inc(dem);

a[dem]:=i;

end;

if dem=0 then writeln(f2,'Khong co')

else begin

writeln(f2,dem);

for i:=1 to dem do 

  write(f2,a[i]:4);

end;

close(f1);

close(f2);

end.

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

  begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s);

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Tam giác vuông

Tam giác cân

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if a mod 3=0 then writeln(a,' chia het cho 3')

else writeln(a,' khong chia het cho 3');

readln;

end.

s ko có program

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if a>b then writeln('So lon nhat trong hai so la: ',a);

if b>a then writeln('So lon nhat trong hai so la: ',b);

if a=b then writeln('Hai so bang nhau');

readln;

end.

 Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.