|
Вопрос # 5 677/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Помогите пожалуйста решить задачку: Вводиться Число N , нужно найти кол-во четных цифр числа.
Ответ #1. Отвечает эксперт: puporev
Здравствуйте, Кузнецов Константин Сергеевич!
Решение Вашей задачи.
var n,k:integer;
begin
write('n=');{ввод целого числа}
readln(n);
n:=abs(n);{возьмем его по модулю, вдруг оно отрицательное}
k:=0;{количество четных цифр}
while n>0 do{пока число не 0}
begin
if (n mod 10)mod 2=0 then inc(k);{если последняя цифра четная, увеличиваем счетчик на 1}
n:=n div 10;{сократим число, следующая цифра справа будет последней}
end;
write('Количество четных цифр=',k);{выводим результат}
readln
end.
 |
Ответ отправил: puporev (статус: 2-ой класс)
Время отправки: 16 октября 2011, 15:39
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 16 октября 2011, 15:27; участников в обсуждении: 3.
|
Кузнецов Константин Сергеевич (статус: Посетитель), 15 октября 2011, 08:57 [#2]:
А можете объяснит что такое ink(k) а то я такого не встречал, а остальное понятно, и зачем перед енд, ридлн , там же вроде все вывел сообщение, зачем что-то ему еще читать?
|
|
|
puporev (статус: 2-ой класс), 15 октября 2011, 09:08 [#3]:
что такое ink(k)
Это функция, увеличивающая значение k на 1, то же что и k:=k+1;
и зачем перед енд, ридлн
Это чтобы прочитать результат на экране не нажимая Alt+F5
если пишете в АВС, можно убрать.
|
|
Ерёмин А.А. (статус: *Администратор), 16 октября 2011, 15:27 [#5]:
puporev: можете преобразовать сообщение с кодом в ответ.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
