Question

Viết chương trình nhập vào số thực bất kì n. Kiểm tra xem chữ số hàng đơn vị của số đó có phải là số chẵn hay không

Answer 1

var n: integer;
begin
write('Nhap n: '); readln(n);
if (n mod 2 = 0) then write('La so chan')
else write('Khong la so chan');
end.

Answer 2

uses crt;
var n : integer; a : array[1..100] of integer;
st : string;
i : integer;
begin clrscr;
write('Nhap so n :'); readln(n);
str(n,st);
for i:=1 to length(st) do val(st[i],a[i]);
if a[i] mod 2 = 0 then write('Chu so hang don vi cua ',n,' la chan') else
write('Chu so hang don vi cua ',n,' la le');
readln
end.

Answer 3

Program HOC24;

var n: longint;

begin

write('Nhap n : '); readln(n);

n:=n mod 10;

if n mod 2=0 then write('Chu so hang don vi cua so do la so chan')

else write('Chu so hang don vi cua so do khong phai la so chan');

readln

end.