Задания
Версия для печати и копирования в MS Word
Тип Д17 № 27627
i

Рас­смат­ри­ва­ет­ся мно­же­ство целых чисел, при­над­ле­жа­щих чис­ло­во­му от­рез­ку [4668; 10414], ко­то­рые де­лят­ся на 3 или 11 и не де­лят­ся на 2, 13, 22, 33. Най­ди­те ко­ли­че­ство таких чисел и ми­ни­маль­ное из них. В от­ве­те за­пи­ши­те два целых числа без про­бе­лов и дру­гих до­пол­ни­тель­ных сим­во­лов: сна­ча­ла ко­ли­че­ство, затем ми­ни­маль­ное число.

Для вы­пол­не­ния этого за­да­ния можно на­пи­сать про­грам­му или вос­поль­зо­вать­ся ре­дак­то­ром элек­трон­ных таб­лиц.

Спрятать решение

Ре­ше­ние.

При­ведём ре­ше­ние дан­ной за­да­чи на языке Пас­каль:

var count, min, i: integer;

begin

min := 20000;

count := 0;

for i := 4668 to 10414 do begin

if (i mod 3 = 0) or (i mod 11 = 0) then

if i mod 2 <> 0 then

if i mod 13 <> 0 then

if i mod 22 <> 0 then

if i mod 33 <> 0 then begin

count := count + 1;

if i < min then

min := i;

end;

end;

writeln(count, min);

end.

 

Ответ: 9654671.

Раздел кодификатора ФИПИ: 1.7.2 Ос­нов­ные кон­струк­ции языка про­грам­ми­ро­ва­ния. Си­сте­ма про­грам­ми­ро­ва­ния