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 btvn;

   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