có số không tận cùng phím đàn

uses crt;

var st:string[30];

    i,d,dem,dem1:integer;

    ktu:char;

begin

clrscr;

write('Nhap cau:'); readln(st);

d:=length(st);

while st[1]=#32 do

  begin

     delete(st,1,1);

     d:=length(st);

  end;

while st[length(st)]=#32 do

  begin

     delete(st,length(st),1);

  end;

for i:=1 to length(st) do

 if (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);

dem:=0;

for i:=1 to length(st) do

  if st[i]=#32 then inc(dem);

writeln('So tu trong cau la: ',dem-1);

write('Nhap ki tu:'); readln(ktu);

dem1:=0;

for i:=1 to length(st) do

  if (st[i]=#32) and (st[i+1]=ktu) then inc(dem1);

writeln('Trong cau co ',dem1,' tu bat dau bang ki tu ',ktu);

readln;

end.

xau = input('Nhập xâu kí tự: ')

chu_cai, chu_so, ki_tu_khac = 0, 0, 0

for kt in xau:

      if kt.isalpha():

            chu_cai += 1

      elif kt.isdigit():

            chu_so += 1

      else:

            ki_tu_khac += 1

print('Số lượng kí tự chữ cái:', chu_cai)

print('Số lượng kí tự chữ số:', chu_so)

print('Số lượng kí tự khác:', ki_tu_khac)

Câu 2: 

a) Mô tả thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: dem←0; i←1; t←0;

-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];

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

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất t và dem

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

Câu 2: 

b) uses crt;

var a:array[1..100]of integer;

i,n,t,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

dem:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then 

begin

t:=t+a[i];

inc(dem);

end;

writeln('So so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

readln;

end.

ds=list(map(str,input().split()))

c={}

for i in ds:

  if i in c:

   c[i] =c[i]+1

  else:

   c[i] = 1

print('số tên khác nhau là',len(c))

print('mỗi tên có số lần xuất hiện là:')

for i in c:

  print(i, c[i])

Chương trình Mario giúp người dùng luyện gõ bàn phím

Tốc độ : theo mình là 3 kí tự / 1 giây

Chúc bạn học tốt !

Có phần mềm typing test đấy

Typing test, typing game, mario typing

2/ trung bình là 5 ký tự mỗi giây

Mong anh kick giùm em

program Tim_so;

var

     n, i, max, count: integer;

     arr: array[1..100] of integer;

begin

     writeln('Nhap vao so n: ');

     readln(n);

     writeln('Nhap vao day so: ');

     for i := 1 to n do

     begin

          readln(arr[i]);

     end;

     max := arr[1];

     count := 1;

     for i := 2 to n do

     begin

          if(arr[i] > max) then

          begin

               max := arr[i];

               count := 1;

          end

          else if(arr[i] = max) then

          begin

               count := count + 1;

          end;

     end;

     writeln('So lon nhat la: ', max);

     writeln('Co ', count, ' so lon nhat trong day.');

     readln;

end.