Viết chương trình cho biết từ 0 đến số nguyên n dương n có bao nhi u số lẻ (với n được nhập vào từ bàn phím) Ví dụ: Nhập N = 20 Kết quả: Tu 0 đen 20 c

0 bình luận về “Viết chương trình cho biết từ 0 đến số nguyên n dương n có bao nhi u số lẻ (với n được nhập vào từ bàn phím) Ví dụ: Nhập N = 20 Kết quả: Tu 0 đen 20 c”

1. Program FNG;
   Uses crt;
   Var n,i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0;
           For i:=1 to n do
                   If i mod 2 = 1 then inc(d);
           Write(‘Tu 0 den ‘,n,’ co ‘,d,’ so le’);
           Readln
   End.

   Bình luận

2. Program BTH;
   uses crt;
   var n,i,k:longint;
   Begin
           clrscr;
           Write(‘Nhap n: ‘);readln(n);
           For i:=0 to n do
           Begin
                   If i mod 2=1 then
                   k:=k+1;
           end;
           Writeln(‘Tu 0 den ‘,n,’ co ‘,k,’ so le.’);
           readln;
   end.

   Bình luận