Viết chương trình con kiểm tra tính chẵn lẻ của một số nguyên 20/07/2021 Bởi Maya Viết chương trình con kiểm tra tính chẵn lẻ của một số nguyên
var a: longint;begin write(‘Nhap so can kiem tra: ‘); readln(a); if (a mod 2 = 0) then write(a,’ la so chan.’) else write(a,’ la so le.’); readln;end. Bình luận
program kiemtra;var a: integer;begin write(‘Nhap a: ‘); readln(a); if (a mod 2 = 0) then write(a,’ la so chan.’) else write(a,’ la so le.’); readln;end. xin hay nhất Bình luận
var a: longint;
begin
write(‘Nhap so can kiem tra: ‘);
readln(a);
if (a mod 2 = 0) then write(a,’ la so chan.’) else write(a,’ la so le.’);
readln;
end.
program kiemtra;
var a: integer;
begin
write(‘Nhap a: ‘);
readln(a);
if (a mod 2 = 0) then write(a,’ la so chan.’) else write(a,’ la so le.’);
readln;
end.
xin hay nhất