Вопрос по информатике:
Клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. Если введено не трёхзначное число, должно быть выведено сообщение «Неверное число».
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.08.2018 00:18
- Информатика
- remove_red_eye 13593
- thumb_up 20
Ответы и объяснения 1
Var chislo, x, i, s: integer;
begin
writeln('Введите число:');
readln(chislo);
x := chislo;
s := 0;
if ( chislo 999 ) then writeln('Неверное число!')
else begin
while ( x 0 ) do begin
s := s + (x mod 10);
x := x div 10;
end;
if s mod 2 = 0 then write('Да')
else write('Нет');
end;
end.
- 12.08.2018 23:41
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.