viết chương trình pascal nhập N từ bàn phím. Đếm xem có bao nhiêu số chính phương từ 1 tới n (sử dụng câu lệnh lặp và câu lệnh điều kiện)
viết chương trình pascal nhập N từ bàn phím. Đếm xem có bao nhiêu số chính phương từ 1 tới n (sử dụng câu lệnh lặp và câu lệnh điều kiện)
Program so_chinh_phuong;
uses crt;
type ArrInt = array[1..250] of integer;
Var n,i,x,d : integer;
a: ArrInt;
BEGIN
clrscr;
{Nhap n va day gom n so tu nhien}
write(‘Nhap so phan tu cua day so: n = ‘);
readln(n);
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’= ‘);
readln(a[i]);
end;
{Dem cac so chinh phuong co trong day so vua nhap}
d:=0;
for i:=1 to n do
begin
x:=trunc(sqrt(a[i]));
if sqr(x)=a[i] then
d:=d+1;
end;
writeln(‘So cac so chinh phuong co trong day so tren la: ‘,d);
readln;
END.
program btsydn;
uses crt;
var i, d, a, n: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
d:=0;
for i:=1 to n do if n>0 then
begin
a:=trunc(sqrt(i));
if sqr(a)=i then d:=d+1;
end;
writeln(‘Co ‘, d, ‘ so chinh phuong tu 1 -> n ‘);
readln
end.