Delphi-Help

Главная Статьи Циклы Контрольная работа: циклы с предусловием и постусловием

Контрольная работа: циклы с предусловием и постусловием

Оцените материал
(0 голосов)


Контрольная работа: циклы с предусловием и постусловием

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

Дано натуральное число 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.

*Обязательные этапы решения задачи (описание входных/выходных данных, блок-схема, и проч.) не приводятся здесь умышленно.

Прочитано 5581 раз

Авторизация



Счетчики