BÀI 1: PHÂN RÃ SỐ. (5,0 điểm) Khi nghiên cứu về số nguyên, người ta dự đoán rằng: Mỗi số nguyên dương có thể viết thành tổng của nhiều số nguyên dương liên tiế
BÀI 1: PHÂN RÃ SỐ. (5,0 điểm) Khi nghiên cứu về số nguyên, người ta dự đoán rằng: Mỗi số nguyên dương có thể viết thành tổng của nhiều số nguyên dương liên tiếp. Yêu cầu: Viết chương trình nhập vào một số nguyên dương N. Xét xem N có là tổng của nhiều số nguyên dương liên tiếp không?. Tên file bài làm: BAI1.PAS Dữ liệu vào: Số N được nhập từ tệp PR.INP ( N1000 ). Dữ liệu ra: Liệt kê tất cả các trường hợp tìm được, ngược lại thông báo không tồn tại tổng.
Lời giải 1 :
uses crt;
var l,n,j,i,sum:longint;
t1,t2:text;
kt:boolean;
a:array[1..1000] of integer;
procedure nhap;
begin
read(n); kt:=true;
if (n<1) or (n>1000) then begin kt:=false; write('-1'); end;
end;
procedure xl;
begin
kt:=false;
for i := 1 to N div 2 do
begin
sum := 0;
j := i;
while sum < N do begin sum:=sum+j; j:=j+1;
end;
if sum = N then begin write(t2,N,'=');
for l := i to (j - 1) do begin write(l); if l+1<>j then write('+'); end; writeln;
kt := True;
end;
end;
if kt=false then write('Khong ton tai');
end;
begin
doc;
xl;
end.
Bạn có biết?
Tin học là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng. Tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin. Hãy tận dụng sức mạnh của tin học để giải quyết các vấn đề và sáng tạo ra những giải pháp mới!
Nguồn :
Wikipedia - Bách khoa toàn thưTâm sự lớp 9
Lớp 9 - Là năm cuối ở cấp trung học cơ sở, chúng ta sắp phải bước vào một kỳ thi căng thẳng và sắp chia tay bạn bè, thầy cô. Áp lực từ kỳ vọng của phụ huynh và tương lai lên cấp 3 thật là lớn, nhưng hãy tin vào bản thân và giữ vững sự tự tin!
Nguồn :
sưu tậpCopyright © 2021 HOCTAPSGK