Вопрос по информатике:
Помогите пожалуйста,срочно! Дано 3-значное число.Посчитать,сколько в этом числе четных цифр.Проверить,принадлежит ли промежутку от 1 до 3 последняя цифра.(Паскаль)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.06.2016 22:38
- Информатика
- remove_red_eye 8497
- thumb_up 32
Ответы и объяснения 1
Var n, c: integer;
b: boolean;
begin
write('Введите число: ');
readln(n);
writeln('Цифра справа в 1..3: ', (n mod 10) in [1..3]);
while (n>0) do begin
c := c + 1 - (n mod 2) ;
b := (n mod 10) in [1..3];
n := n div 10;
end;
writeln('Цифра слева в 1..3: ', b);
writeln('Четных цифр ', c);
end.
- 24.06.2016 10:02
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.