Tìm kiếm:

Máy tính của mình bị nhiễm con virus Sality. Hiện tại máy mình không còn virus chạy nhưng cái đống dữ liệu có đuôi là *.exe của mình bị tiêu tùng (bị BKAV phát hiện là virus). Nhưng đó là những file...

Bài 2

program bt;
uses crt;
const fi='bai2.inp';
type mang=array [1..1000] of longint;
var a,b:mang;
n,pt:word;
s,tong,dem:longint;
{-------------------------------------}

Mỗi lần download BKAV, mình thấy dung lượng của nó ngày một tăng (chắc là do database virus ngày một nhiều). Vậy có cách nào để download những bản update như những game online để giảm dung lượng...

Bài 1: nhiều cách làm lắm
Bài 2: sử dụng quy hoạch động.
Bài 3: hình như dùng đệ qui
Bài 4: làm bình thường

100!=93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210
Mình dùng string.

Bài Số nguyên tố tương đường
Thuật toán:
Tìm tất cả các ước nguyên tố của số lớn rồi kiểm tra xem có phải là ước của số bé không? Tìm cho đến khi số lớn div 2. Sau đó in ra kết quả. Mình lười post...

Code chương trình này chỉ mới tính tổng các số nguyên tố từ 1 --> n thôi.
Nếu bạn tính trung bình cộng thì đổi câu lệnh write(tong) trong procedure xl thành write(tong/n:0:2).

Nếu bạn muốn tính giai thừa với số lớn như 10000 thì bạn phải viết function tính phép cộng bằng mảng, sau đó từ phép cộng viết function nhân, rồi đến giai thừa. Lúc đó bạn tính được cả 15000! chính...

Bài của bạn đây

program bt;
var a,b:String;
{-----------------------------------}
Function timvadao(a:string):string;
var i:byte;
t:string;
begin
t:='';

Bài này bạn sử dụng phép cộng, trừ bằng chuỗi. Sau đó dùng phép trừ chuỗi để nâng lên phép mod, phép cộng để nâng lên phép nhân. Vì phép mod là phép trừ nhiều lần, tương tự phép nhân là phép cộng...