var st:string;

i,dem:integer;

begin

write('Nhap xau ki tu: ');readln(st);

for i:=1 to length(st) do

if st[i]=' ' then dem:=dem+1;

write('so ki tu la dau cach la ',dem);

readln;

end.

var i, so: integer;

begin
  writeln('Nhap vao 10 so tu nhien:');
  for i := 1 to 10 do
  begin
    write('So thu ', i, ': ');
    readln(so);
    writeln('So vua nhap la: ', so);
  end;
  readln;
end.

Program HOC24;

var i,n,d: integer;

begin

write('Nhap N: '); readln(n);

write('Cac uoc cua 'n,' la: ');

for i:=1 to n do if i mod n = 0 do then

begin write(i,' '); d:=d+1; end;

writeln;

write('Co ',d,' so la uoc cua ',n);

readln

end.

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=1;

for i:=1 to n do t:=t*2;

write('2^,n,' = ',t);

readln

end.

program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.  

*Khi A lớn nhất và A >=1500

Var i,A: integer;
Begin

         While A<1500 do

         Begin

                  i:=i+1;

                  A:=A+i;

         End;

   Write('Tong cua A la: ',A); [Hoặc Write('Tong cua A la:',A,' va can co ',i,' so') {Để in ra màn hình cần bao nhiêu số để có tổng >1500 ]

Readln

End.

*Khi A lớn nhất và A<1500
Var i,A:integer;

Begin

  i:=0; A:=0;

   While A<1500 do

             Begin

                i:=i+1;

                A:=A+i;

             End;

       A:=A-i;

       i:=i-1;

   Writeln('Tong A= ',A,' );

 Readln;

End.
*Dòng lệnh in đậm mình ghi thêm và khác với bài kia có nghĩa là khi A>1500 thì phải trừ tổng A đi số (hoặc nhiều số) cuối cùng đã cộng cho tổng cho đến khi tổng A<1500. Vd như: A=1+2+3+4+5= 15 (tức A>10; A phải lớn nhất).Muốn cho A=10 thì trừ đi số cuối cùng là 5 = 15-5=10. Còn nếu muốn A<10 thì trừ hai số cuối cùng đi hai số cuối cùng là : 15-5-4=6

Good luck for you! :D 

1. B

2. A

3. B

1. C. Phép nhân và phép chia

2. A. Charles Babbage

3. B. Cơ hóa việc tính toán