Найти ошибку в программе, program nastya; var n: integer; procedure perewod8(n: integer); begin if n> 1 then perewod8(n div 8); write (n mod 8); end; begin write ('введите натуральное число n='); read(n); perewod8(n); end.

Каждая тема PowerPoint содержит набор макетов слайдов, предопределяющих размещение содержимого ваших слайдов. Поле "Заполнитель" предоставляет место для вставки содержимого. При этом почти не требуется (или совсем не требуется) форматирование и перемещение вручную. Выбирайте макет в меню PowerPoint и вставляйте свой текст и рисунки.

Для размещения содержимого слайда можно использовать один из макетов, чтобы сделать его понятным и удобочитаемым.

Выберите слайд, для которого вы хотите изменить макет.

На вкладке Главная нажмите кнопку Макет.

Выберите нужный макет.

Макеты содержат заполнители для текста, видеороликов, изображений, диаграмм, фигур, элементов коллекции картинок, фона и других объектов. Макеты также содержат параметры форматирования этих объектов, такие как цвета темы, шрифты и эффекты.

Примечание: Если вас не устраивают внесенные изменения, на вкладке Главная нажмите кнопку Сбросить, чтобы вернуться к исходному макету. Кнопка Сбросить не удаляет добавленное содержимое.

Изменение ориентации слайдов

Инструкции по переключению между книжной и альбомной ориентациями содержатся в отдельной справочной статье:

Альбомная ориентация слайда альбомная

Книжная ориентация слайда книжная

Для PowerPoint 2013 или более новой версии см. статью Изменение ориентации.

Для PowerPoint 2010 или 2007 см. статью Изменение ориентации.

усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "это не трёхзначное число! "):

vari,a,d: integer; s: string; beginwriteln('введите трёхзначное число '); read(s); d: =length(s); if d< > 3 thenwrite('это не трёхзначное число! '); if d=3 thenif (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('да')elsewrite('нет'); end.

простой вариант(выводится ошибка если цифр больше или меньше трёх! ):

vari,a,d: integer; s: string; beginwriteln('введите трёхзначное число '); read(s); if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('да')elsewrite('нет'); end. 2 варианта, так-как незнаю,проходили ли вы функцию  "length" или нет.если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.