Question

Bài 1 : Nhập vào số tự nhiên a, kiểm tra xem số a có phải là số chính phương không

Bài 2 : Nhập vào số điện của gia đình mình cần thanh toán. Tính tiền phải trả. Biết rằng 100 số đầu tính giá 1 nghìn, 100 số tiếp tính giá 150 nghìn. Từ 200 đến 300 số tính giá 2 nghìn. Từ 300 số trở lên tính giá 2 nghìn rưỡi

Answer 1

Bài 1:

uses crt;

var a:integer;

begin

clrscr;

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

if trunc(sqrt(a))=sqrt(a) then writeln(a,' la so chinh phuong')

else writeln(a,' khong la so chinh phuong');

readln;

end.