Để em
bài 3
Code:
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
Code:
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
Code:
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.
Đánh dấu