Контрольная работа: циклы с предусловием и постусловием
Типовая задача вынесенная на контрольную работу:
Дано натуральное число N (вводится с клавиатуры). Найти количество нечетных цифр этого числа. Задачу реализовать с помощью цикла с предусловием.*
Решение:
program analizch4; var
n,k:longint;
i:byte;
begin
write('Введите число N = '); readln(n); k := n;
i := 0;
while k > 0 do begin
if (k mod 10) mod 2 <> 0 then
inc(i);
k := k div 10
end; writeln('Количество нечетных цифр в числе ', n, ' - ', i)
end. |
*Обязательные этапы решения задачи (описание входных/выходных данных, блок-схема, и проч.) не приводятся здесь умышленно.
