Viết chương trình Nhập vào một số nguyên, kiểm tra xem số vừa nhập là số chẵn hay số lẻ.
2 câu trả lời
program ntn;
uses crt;
var a:longint;
begin
clrscr;
write('a=');readln(a);
if a mod 2=0 then writeln(a,' la so chan')else write(a,' la so le');
readln
end.
Đáp án:
Program chan_le;
uses crt;
var a: integer;
begin
clrscr; write('nhap vao so a ='); readln(a);
if ( a mod 2 = 0 ) then write(' a la so chan ')
else
write('a la so le ');
readln;
end.
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
`***` `Híu`