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) đơn giản thô

0 bình luận về “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) đơn giản thô”

1. uses crt;

   var n,i,dem:longint;

   begin

   clrscr;

   write(‘Nhap so nguyen duong n: ‘);readln(n);

   for i:=1 to n do  if sqrt(i)=trunc(sqrt(i)) then dem:=dem+1;

   writeln(‘Co ‘,dem,’ so chinh phuong’);

   readln

   end.

   Bình luận

2. program btsydn;

   uses crt;

     var i, n, d, a: 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.

   Bình luận