discussion pascal.giúp mình vs.huhu

[NhocS2b12]

ai giải giúp mình.mình cực kỳ cảm ơn.vì phần nay mình rất ngu.tự dưng giờ lại phải hoc.hjx
b1.lập trình gõ vào 1 số kí tự tùy ý.đếm xem trog số ký tự đã gõ co bao nhiêu ký tự là số.là chữ cái.là các ký tự khác
Posted via Mobile Device: UA
-----------------------------------------
b2.lập chương trình tìm các số có 3 chữ số sao cho số đó bằng tổng lập phương các chữ số tạo nên nó
Posted via Mobile Device: UA
b3. giai thừa dc dịnh nghĩa như sau.
0!=1 , 1!=1 , n!=1*2*3*...*n
hãy lập 1 chương trình cho phép nhập n nguyên, không âm vào từ bàn phím rồi đưa ra màn hình giá trị n!

 

[xp_dragonboy]

nếu là hồi lớp 11 thì chắc là t giúp đc cậu đấy n0 bjh t cũng quên hết r hehe :|

 

[NhocS2b12]

nói thế thì nói lm j.ai giúp mình vs k mình phải ở lại trường cả đêm mất
Posted via Mobile Device: UA

 

[thanhkhoeo]

Để em

bài 3

uses crt;
var n:longint ;
    c:char;
function
gt(k:integer) :longint;
begin
if k=0 then gt:=1 else gt:=gt(k-1)*k;
 end;
 begin
 clrscr;
 writeln(' ban co dong y thuc hien chuong trinh tinh giaai thua y/n');
 c:=readkey;
 writeln;
  if (c='y') or( c='c')  then
     begin
     write('nhap n');
     readln(n);
 write(gt(n));
 end else write('bye bye');
 readln;
 end.

-----------------------------------------
bài 1

var ds, dc,dk,i: byte;
    st:string;
begin
   write(' nhap sau ');
   readln(st);
     for i :=1 to length(st)do
        if st[i] in['0'..'9'] then ds:=ds+1
           else
              if (st[i]in ['a'..'z']) or  (st[i]in ['A'..'Z']) then dc:=dc+1
                else dk:=dk+1;
   write (' so ki tu chu', dc,' so kitu so', ds,]' so kitu khac', dk);
   readln end.

-----------------------------------------
bài 2

var i:integer;
function tlp(x:integer): boolean;
var o,k,j:integer;
  begin
      k:=x div 100;
      o:=o+k*k*k;
      j:=x mod 100;
      k:=j div 10;
      o:=o+k*k*k;
      j:=j mod 10;
      o:=o+j*j*j;
    if o= x then tlp := true else tlp:=false;
  end;
begin
  for i:=100 to 999 do
    if tlp(i) then write (i:8);
  readln end.

 

[NhocS2b12]

eo ơi.cảm ơn bạn nhiều lắm:x.thế là k phải ở trườg cả đêm rồi.hehe
Posted via Mobile Device: UA