mol4a M mol4a Регистрация 27 Май 2013 Сообщения 92 Репутация 0 Спасибо 0 Монет 0 3 Ноя 2016 #1 Написать программу через 3-и цикла (while, repeat,for)
leo5223 L leo5223 Регистрация 4 Дек 2013 Сообщения 97 Репутация 0 Спасибо 0 Монет 0 3 Ноя 2016 #2 так побыстрее будет: PROGRAM q195235847; var A, B, C, i :LongInt; BEGIN A := 1000; B := 628; i := 0; C := 0; WHILE (1 shl i) < B DO BEGIN IF ((1 shl i) and B <> 0) THEN C := C + (A shl i); inc(i); END; WriteLn(C); END. Позитивный голос 0
так побыстрее будет: PROGRAM q195235847; var A, B, C, i :LongInt; BEGIN A := 1000; B := 628; i := 0; C := 0; WHILE (1 shl i) < B DO BEGIN IF ((1 shl i) and B <> 0) THEN C := C + (A shl i); inc(i); END; WriteLn(C); END.