Viết chương trình tìm xem có bao nhiêu số dương trong n số nhập vào từ bàn phím

Answers ( )

1. 

   Program jcungdc ;

   Uses crt;

   Var n,i,s : longint;

   Begin

   Write(‘nhap so n’);

   Readln(n);

   S:=0;

   For i:=1 to n-1 do

   If (n mod i=0) then s:=s+i;

   If s=n then write(n,’ la so hoan chinh’) else write(n,’khong phai la so hoan chinh’);

   Readln

   End.

3. 
   • Bước 1:Nhập vàon
   • Bước 2:Tính tổng S các số mà n chia hết trong khoảng [1..n-1]
   • Bước 3:Nếu S = n, số n là số hoàn thiện

Answers ( )

1. 

   1) uses crt;
   var i,n,t : integer;
   a : array[1..100] of integer;
   begin clrscr; t:=0;
   write(‘Nhap n:’); readln(n);
   for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]);
   end;
   for i:=1 to n do if a[i] > 0 then t:=t+1;
   write(‘cac so duong cua day la:’, t);
   readln
   end.

   2) uses crt;
   var i,n,t : integer;
   a : array[1..100] of integer;
   begin clrscr; t:=0;
   write(‘Nhap n:’); readln(n);
   for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]);
   end;
   for i:=1 to n do if a[i] < 0 then t:=t+1;
   write(‘cac so am cua day la:’, t);
   readln
   end.

3. 

   6.

   program ct;

   uses crt;

   var i,n,d:integer;

   A:array[1..100] of integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   d:=0;

   for i:=1 to n do

   if A[i]>0 then d:=d+1;

   writeln(‘cac so duong la:’,d);

   readln

   end.

   7.

   program ct;

   uses crt;

   var i,n,d:integer;

   A:array[1..100] of integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   d:=0;

   for i:=1 to n do

   if A[i]<0 then d:=d+1;

   writeln(‘cac so am la:’,d);

   readln

   end.