2001 - GHI CÁC SỐ TRÊN BẢNG(DÀNH CHO HỌC SINH THCS)PROCEDURE BA...

Bài 87/2001 - Ghi các số trên bảng

(Dành cho học sinh THCS)

Procedure bai87;

uses crt;

var d, N:integer;

begin

clrscr;

write('Nhap so nguyen duong N: '); readln(N);

repeat

if N mod 2 = 0 then N:= div 2 else N:=N-1;

d:=d+1;

until N=0;

write('So lan ghi so len bảng: ', d);

readln;

End.