1. Trang chủ
  2. » Cao đẳng - Đại học

De thi Toan Tin hoc trong nha truong Bai 58

1 19 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 1
Dung lượng 5,62 KB

Nội dung

[r]

(1)

Bài 58/2001 - Tổng số tự nhiên liên tiếp (Dành cho học sinh THCS PTTH)

Program bai58; Uses crt;

var N:longint;

m,i,dem,a,limit:longint; procedure Solve;

begin

Writeln('Chia so ',N,':');

limit:=trunc(sqrt(1+8*N)+1) div 2; for m:=2 to limit-1

if ((N-m*(m-1) div 2) mod m =0) then begin

a:=(N-m*(m-1) div 2) div m; inc(dem);

writeln('+ Cach thu ',dem,' :'); for i:=a to a+m-1

begin write(' ',i);

if (i-a+1) mod 10=0 then writeln; end;

writeln; end; end; BEGIN clrscr;

writeln('Nhap N: ');readln(N); Solve;

if dem=0 then writeln('Khong the chia!') else writeln('Co tat ca', dem,' cach chia!'); readln;

END.

Ngày đăng: 05/03/2021, 13:23

w