Сколько раз выполнится цикл: i:=6; while i<6 do i:=i+3;

Цыкл будет выполняться 0 раза потому что оператор whileдолжен выполнять цыкл когда i будет равен 6 ти а и так там дано 6 вот и потому цикл не будет повторятся,а после исполнение цыкла ответ будет равен 6 ти.

Программа получает на вход натуральное число, затем подсчитывает сумму его цифр и определяет наименьшую из всех цифр, кроме первой.
В соответствии с условием задачи требуется найти наибольшее четырехзначное число, сумма цифр которого равна 29, а наибольшая из трех последних цифр не превышает 7.
Итак, одна из цифр числа известна - это 7. Тогда сумма остальных трех цифр равна 29-7=22, причем две из этих цифр не могут быть меньше 7. Полагаем, что они равны 7 с тем, чтобы получить наибольшую допустимую первую цифру. Получаем 22-7х2=8, т.е. число должно быть равно 8777.
ответ: 8777

Биопечать происходит с использованием специально разработанных 3D-биопринтеров, подобно тому, как печатают на 3D-принтерах различные детали — послойно, по цифровой трехмерной модели. Картриджи принтеров при этом заправляют сфероидами — конгломератами клеток, которые наносят на специальную подложку — своеобразную биобумагу. Напечатав один слой из клеточных сфероидов, сверху наносят второй, который срастается с первым. Так постепенно получают объемный живой объект — ткань или орган. 3D-печать имеет огромный потенциал в медицине. С этих технологий можно воспроизводить высокоточные трехмерные модели человеческих органов, а также некоторые имплантаты. Разработчики подобных технологий стремятся к созданию органов в реальном времени.