K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

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.