Sao có ý kiến à....
Nếu vậy bạn nois ý tưởng xem nào
yahaha, cứ giữ thái độ đó đi,
07-03-2016 - 16:14
Sao có ý kiến à....
Nếu vậy bạn nois ý tưởng xem nào
yahaha, cứ giữ thái độ đó đi,
07-03-2016 - 12:05
Đề: 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ó.
04-03-2016 - 22:57
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.
04-03-2016 - 15:31
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);
01-03-2016 - 12:43
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.
Community Forum Software by IP.Board
Licensed to: Diễn đàn Toán học