Question

Giúp em với mọi người ơi em cám ơn ạ :3

Viết chương trình nhập vào một số nguyên M và kiểm tra xem số vừa nhập là số chẵnhay số lẻ. Tính bình phương, căn bậc 2, trị tuyệt đối của số M đó. Xuất các kết quả ra mànhình.

Answer 1

uses crt;

var m:integer;

begin

clrscr;

write('Nhap m='); readln(m);

if m mod 2=0 then writeln(m,' la so chan')

else writeln(m,' la so le');

writeln('Binh phuong cua ',m,' la: ',sqr(m));

writeln('Can bac hai cua ',m,' la: ',sqrt(m));

writeln('Gia tri tuyet doi cua ',m,' la: ',abs(m));

readln;

end.