Числата и техните делители

4 Responses to Числата и техните делители

1. kaloyan каза:

   03 май, четвъртък в 10:37

   VAR a,b,i,j : integer;
   BEGIN
     write('vavedi interval: '); readln(a,b);
     for i:=a to b do begin
     write(a,': ');
       for j:=1 to a do
         if (a mod j)=0 then write(j,' ');
     writeln;
     a:=a+1;
     end;
   
   readln;
   END.  
   

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

     03 май, четвъртък в 11:10

     Калояне, решението ти е вярно, но е малко усл0жнено. Нямаш нужда да увеличаваш стойността на променливата а – вместо нея можеш да ползваш i. Виж решението на Любо.

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

   03 май, четвъртък в 10:51

    program project1;
   var
       i, j, m, n: integer;
   
   begin
       WriteLn('Vuvedete intervala ot cifri: ');
       ReadLn(m, n);
   For i:=m to n do begin
       Write(i, ': ');
   For j:=1 to i do
   if (i mod j)=0 then
       Write(j, ' ');
       WriteLn;
   end;
       ReadLn;
   
   
   end.           

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

     03 май, четвъртък в 11:12

     Любо, решението ти е вярно, но ако го форматираш малко, така че всеки вложен блок да е по-навътре, програмата ще е по-прегледна и разбираема.

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