1)
Пока б больше а, {
проверить что при делении на два остаток равен 1, {
б присвоить б минус 1,
вывести б }}
2)
пока б миньше а {
общее присвоить б * счетчик
б присвоить б + 1 }
3)
пока счетчик (введенное число) не равно 0 {
счетчик + 1
выполнять (а = 0, а < счетчик, а присвоить а + 1) {
вывести а }}
Удачи. Надеюсь помог.
1 КБит = 128 Байт
5 КБит = 640 Байт
Я понимаю это не степени, а основания
а) 566^7 600
79^16 7А
10111^2 11000
344^5 400
89^16 8А
110011^2 110100
б) 1000^4 333
90^16 8F
1001011^2 1001010
344^5 343
89^16 88
110011^2 110010
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ArrRandom(ReadInteger('n='),0,1).Println.Sorted.Println
end.
<u>Пример</u>
n= 15
0 0 1 1 0 1 1 1 1 0 0 1 1 0 1
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1