Составить программу, позволяющую определить, есть ли среди цифр задорного целого трехзначного числа Х четные?

Question

Информатика

Порфирий

20 ноября, 00:31

Составить программу, позволяющую определить, есть ли среди цифр задорного целого трехзначного числа Х четные?

+3

Ответы (2)

Знаете ответ на вопрос?

Спиридоний · Answer 1

Var

x, ed, des, sot:integer;

Begin

Readln (x) ;

ed:=x mod 10;

des:=x div 10 mod 10;

sot:=x div 100 mod 10;

x:=0;

if sot mod 10=1 then x:=x+0 else x:=x+1;

if des mod 10=1 then x:=x+0 else x:=x+1;

if ed mod 10=1 then x:=x+0 else x:=x+1;

if x>0 then writeln ('Есть') else writeln ('Нет') ;

end.

Настася · Answer 2

Var

n, d1, d10, d100:integer;

begin

Write ('Введите натуральное трехзначное число: ') ; Read (n) ;

d1:=n mod 10; d100:=n div 100;

d10: = (n div 10) mod 10;

if (d1 mod 2 = 0) or (d10 mod 2=0) or (d100 mod 2=0)

then Writeln ('Есть четная цифра')

else Writeln ('Нет четных цифр')

end.