Презентация на тему Операторы цикла

некоторой программы группа команд.

его выполнения проверяется перед выполнением тела цикла.
Цикл с предусловием

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

до тех пор, пока истинно условие, указанное в операторе

while

из нескольких, то их следует заключить в операторные скобки

begin и end.

Пример:
while <условие> do
begin
<команда 1>;
<команда 2>;
<команда 3>;
….
end;

отдельности цифры целого числа n.

единиц)
4538 mod 10 =8
Тогда можно вывести на экран сообщение:
«1-я

цифра справа равна 8».
Затем выполним целочисленное деление заданного числа 4538 на 10 (остаток отбрасывается):
4538 div 10 = 453 и т.д.
Процесс нужно продолжить, пока число n не равно 0. А как только оно станет равно 0, цикл нужно завершить.

вывод на экран цифр числа}
var n,p,i:integer;

begin
write(‘Введите натуральное число n<=4538’);
readln(n);
i:=0;
while n <> 0 do
begin
p:=n mod 10;
i:=i+I;
writeln(i, ‘-я цифра справа равна’,p);
n:=n div 10
end
end

не превышающих заданного натурального числа N. Напишите программу на

Паскале.