Tin học Lập chương trình

[concanhcam]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

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

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ó

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, vào từ bàn phím rồi đưa ra màn hình giá trị n!

 

[hung1xpro96]

mấy bài này dễ lắm mình làm lâu mà quên hết rùi chỉ hơi nhớ cách giải bài cuối thôi hình như là
Program Bai;
Var n,i,s:Integer;
Begin
Writeln(' nhap ');
Readln(n);
s:=1;
For i:=1 to n do
s:=s*i;
Writeln(' ket qua la ',s);
Readln;
End.

 

[hung1xpro96]

em cam ơn ý kjến của anh do bàj này làm lâu lắm rùj nên em khôg nhớ nên chỉ sai

 

[p_trk]

Bài 2:

var
   i,chuc,tram,dv: integer;
begin
 for i:=100 to 999 do
  begin
      dv  := i mod 10;
      chuc:=( i div 10 ) mod 10;
      tram:=(i div 100) mod 10;
  if i= ( dv*dv*dv + chuc*chuc*chuc + tram*tram*tram) then write(i:5);
  end;
 readln;
end.

còn bài 3: mình đã sửa tại : dùng thuật toán đệ quy

Procedure Giaithua(n:word):integer;
begin
if n=0 then giaithua:=1
else giaithua:=n*giaithua(n-1);
end;

đó là procedure còn ban cố gắng làm đầy đủ nha

CHÚC BẠN HỌC TỐT