Презентация, доклад по информатике Цикл

команд.

перед выполнением тела цикла.

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

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

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

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

числа n.

=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. Напишите программу на Паскале.