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.(Lời giải của bạn Cao Le Thang Long)