viết chương trình nhập vào số nguyên a.In ra màn hình nếu số đó là số lẻ.

2 câu trả lời

program b1;

uses crt;

var a : longint;

begin

 clrscr;

 write('cho biet a = ');

 readln(a);

 if a mod 2 = 0 then write(a,' la so chan')

 else write(a,' la so le');

 readln;

end.

Program BTT;
Uses crt;
Var a: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If a mod 2 = 1 then Write(a,' la so le')
        Else Write(a,' khong phai so le');
        Readln
End.

Câu hỏi trong lớp Xem thêm