nghethuat102

Sao có ý kiến à....

Nếu vậy bạn nois ý tưởng xem nào 

yahaha, cứ giữ thái độ đó đi, 

Đề:  Tìm chữ số sau số 0 của N!

Ý tưởng:
- Tính n!
- Chuyển kq của n! sang xâu
-Chạy xâu,nếu s[i]=0 thì viết ký tự thứ i+1 ra và thoát ra khỏi vòng lặp.
Code:
program gt;
uses crt;
var i,n,j,k,l:integer;
s,s1,s2:string;
begin
clrscr;
write('Nhap n=');readln(n);
t:=1;
for i:=1 to n do
t:=t*i;
str(t,s);
write('So sau so 0 cua ',n,'! la: ');
for i:=1 to length(s) do
if s[i]='0' then 
begin
write(s[i+1]);
break;
end;
readln
end.
 

code của bạn ngây thơ vãi      . Muốn tìm hiểu vấn đề này có thể vào page qvluom, có công thức tổng quát cho nó.

vậy làm hộ cái

tôi thích làm hay không đó là sự lựa chọn của tôi, và trong trường này câu trả lời là không.

Nhận xét: Nếu 1 robot được gọi thực hiện quá 3 lần thì nó trở lại trạng thái ban đầu, nên nếu quét 3 lần trở đi thì k còn tối ưu. Từ đây có thể sinh dãy tam phân để thể hiện số lần quét từng robot và tìm đáp án. Độ phức tạp o(3^9);

program xau;

uses crt;

var s:string;

begin

clrscr;

write('Nhap xau :');readln(s);

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)=#32 do delete(s,pos(#32#32,s),1);

writeln('Xau sau khi chuan hoa:',s);

readln

end.

Gửi mail or fb của bạn đây, mình sẽ đưa bài tập cái gọi là hay hay cho.