Ответ:
Язык: Питон
Объяснение:
a = int(input())
for i in range(2, a + 1):
flag = True
for f in range(2, i):
if i % f == 0:
flag = False
break
if flag:
print(i, end=' ')
Шалтай-Болтай Сидел на стене. Шалтай-Болтай Свалилс<u><em>Я</em></u><em></em> во сне. Вс<em><u>Я</u></em><em><u /></em><u /> Королевска<em><u>Я</u></em> Конница, Вс<em><u>Я</u></em> королевска<u><em>Я</em></u> рать Не может Болта<em><u>Я</u></em>, Шалта<em><u>Я</u></em><em><u /></em><u />-Болта<u><em>Я</em></u>, Болта<u><em>Я</em></u>-Шалта<em><u>Я</u></em><u><em /></u> собрать!
10 букв я
Воспользуемся методом потетрадного перевода из двоичной системы в шестнадцатеричную. Запишем 3 группы по 4 двоичных разряда в каждой. Наименьшее число будет содержать 7 нулей в старших разрядах, а наибольшее - в младших. Каждая группа переводится как цифра в шестнадцатеричную систему.
0000 0001 1111(2) = 01F(16) = 31(10) - наименьшее число.
1111 1000 0000(2) = F80(16) = 3968(10) - наибольшее число.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
// заполним информацию случайным образом;
// если хорошистов в результате не окажется,
// просто перезапускаем задачу
randomize;
var a:=MatrRandom(13,10,4,5); // везде только 4 и 5
for var i:=1 to 20 do // раскидаем 20 троек
a[Random(13),Random(10)]:=3;
a.Println(2); Writeln;
// собственно, решение
var k:=0;
foreach var r in a.Rows do
if r.All(x->x<>3) and not r.All(x->x=5) then k+=1;
Writeln(k,' хорошистов')
end.
<u>Пример</u>
5 5 4 4 4 5 3 3 4 4
5 4 4 4 3 4 5 5 4 5
5 5 5 3 5 4 4 5 5 4
3 5 4 3 4 4 5 5 5 3
5 3 4 4 5 4 4 5 5 4
3 5 5 5 5 4 4 4 4 3
4 4 5 3 5 4 4 5 4 5
4 5 4 4 4 4 4 4 5 4
3 5 3 4 4 4 4 4 5 3
5 5 4 5 4 4 4 5 4 5
4 5 4 5 4 5 3 4 5 5
4 5 4 4 4 4 5 4 4 5
4 3 5 4 4 4 5 5 3 5
3 хорошистов