Вопрос по информатике:
С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. Если введено не
трёхзначное число, должно быть выведено сообщение «Неверное число».
Нужно написать
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.10.2016 21:12
- Информатика
- remove_red_eye 15029
- thumb_up 12
Ответы и объяснения 1
Program prog;
uses crt;
var x,k:integer;
begin;
clrscr;
write('Введите трехзначное число х = ');
readln(x);
if ((x div 1000) = 0) and (abs(x div 100)>0 )then
begin
while abs(x)>0 do begin;
if (x mod 10) mod 2=0 then k:=k+1;
x:= x div 10;
end;
if k=3 then writeln('Да')
else writeln('Нет');
end
else
writeln('Неверное число');
end.
- 01.01.1970 00:00
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.