Броят на ненулевите от N числа

3 Responses to Броят на ненулевите от N числа

1. kaloyan каза:

   14 май, понеделник в 07:57

   VAR chislo,broi,n,i : integer;
   BEGIN
   write('broq na chislata koito shte vavejdate: '); readln(n);
   broi:=0;
     for i:=1 to n do begin
       write('vavedi chislo: '); readln(chislo);
       if chislo<>0 then broi:=broi+1;
     end;
   
     writeln('broq na nenulevite chisla e ', broi);
   
   readln;
   END.         
   

   Влезте, за да отговорите
2. dreanor каза:

   22 май, вторник в 11:35

   program broinenulewichisla;
   var m,n,j,i:integer;
   begin
   writeln('wuwedi chislo (n); ');
   readln(n);
   j:=0;
   for i:=1 to n do
     begin
     m:=i mod 10;
     if m>0 then j:=j+1;
     end;
     writeln('broqt na nenulewite e: ',j);
     readln;
   end.
   

   Влезте, за да отговорите
   • Данаил каза:

     28 май, понеделник в 01:42

     Калояне, твоето решение е вярно, но за следното условие: „Изведете броят на положителните числа, които не съдържат 0 и са по-малки от N“. И то не е съвсем вярно, защото ако числото е над 100, пак ще има нула, но в десетиците.

     Виж първото решение на другия Калоян, то е по-коректно за така поставената задача.

     Влезте, за да отговорите