Question

Рас­смат­ри­ва­ет­ся мно­же­ство целых чисел, при­над­ле­жа­щих чис­ло­во­му от­рез­ку [1740; 14454], ко­то­рые де­лят­ся на 4 и 5 и не де­лят­ся на 8, 12, 16, 30. Най­ди­те ко­ли­че­ство таких чисел и ми­ни­маль­ное из них. В от­ве­те за­пи­ши­те два целых числа без про­бе­лов и дру­гих до­пол­ни­тель­ных сим­во­лов: сна­ча­ла ко­ли­че­ство, затем ми­ни­маль­ное число.
блок схема!!!!​

Answer 1

Паскаль:

var count, min, i: integer;

begin

 min := 20000;

 count := 0;

 for i := 1740 to 14454 do begin

     if (i mod 4 = 0) and (i mod 5 = 0) then

         if i mod 8 <> 0 then

             if i mod 12 <> 0 then

                 if i mod 16 <> 0 then

                     if i mod 30 <> 0 then begin

                         count := count + 1;

                         if i < min then  

                             min := i;

                     end;

 end;

 writeln(count, min);

end.

 

Ответ: 2121780.