• Задание: Вы ввели трехзначное число. Составьте программу, определяющую, есть ли в этом числе, четные цифры.
    Вопрос: в какой программе решается данная задача и каким образом?

Ответы 2

  • Лучше всего сделать в pascal. Попробуй этот код:var  n: integer;  boo: boolean;begin  write('Введите число: ');  readln(n);  boo:=odd(n);  case boo of     true: writeln('Нечетное');    false: writeln('Четное');  end;  readln;end.
  • program OddNumeric;var  n, i: integer;  a: array [1..3] of byte;  b: boolean;begin  Write('Введите трехзначное число: ');  Readln(n);  a[1]:=n div 100; {1 цифра сотен}  a[2]:=(n div 10) mod 10; {2 цифра десятков}  a[3]:=n mod 10; {3 цифра количество единиц}  b:=false;  for i:=1 to 3 do  begin     if (a[i] mod 2)=0 then         b:=true;  end;  if b then   Writeln('В этом числе есть четные цифры')  else     Writeln('В этом числе нет четных цифр');end.
    • Автор:

      slinkygay
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years