Используя оператор repeat в Паскале вывести на экран:

1 ежик 2 ежик 3 ежик 4 ежик 5 ежик

Реферат – сбор и представление исчерпывающей информации по заданной теме из различных источников, в том числе представление различных точек зрения по этому вопросу. При работе над проектом имеется похожий, реферативный этап, который является лишь частью проекта. Исследовательская работа – работа, связанная с решением творческой, исследовательской задачи с заранее неизвестным результатом. Исследование – это лишь этап проектной работы. Проект – работа, направленная на решение конкретной проблемы, на достижение оптимальным заранее запланированного результата. Проект может включать в себя элементы докладов, рефератов, исследований и других видов самостоятельной работы учащихся, но только как достижения результатов проекта.

program z1;

var n,k:integer;

begin

k:=0;

write ('Введите натуральное число (n>9): ');

readln (n);

write ('Цифры натурального числа ',n);

while n>=10 do

begin

if n mod 10 < n div 10 mod 10 then k:=1;

n:=n div 10

end;

if k=1 then write (' НЕ расположены в порядке возрастания')

else write (' расположены в порядке возрастания')

end.

Объяснение:

Вводим число

Цикл с предусловием (условие число больше или равно 10)

Сравнение последней и предпоследней цифр числа, если последняя меньше, то k присваивается значение 1

n присваивается значение целочисленного деления на 10 (отбрасываем последнюю цифру числа)

Если k = 1, то цифры не расположены в порядке возрастания, иначе расположены