Question

Дано целое трехзначное число .Определить все ли цифры в нем нечетны .Паскаль

Answer 1

var a, b, c , d : integer;

begin

read(a);

b := a mod 10;

c := a div 10 mod 10;

d := a div 100;

if (b mod 2 = 1) and (c mod 2 = 1) and (d mod 2 = 1) then

writeln('Нечетны')

else

writeln('Есть четные');

end.

Answer 2

Для определения, все ли цифры в заданном трехзначном числе нечетные, вы можете использовать следующий код на Pascal:

pascalCopy code
program CheckOddDigits;
var
  number, digit: integer;
begin
  writeln('Введите трехзначное число: ');
  readln(number);

  if (number >= 100) and (number <= 999) then
  begin
    // Извлекаем каждую цифру числа и проверяем, является ли она нечетной
    digit := number div 100;
    if odd(digit) then
      writeln(digit, ' - нечетная цифра')
    else
      writeln(digit, ' - четная цифра');
    
    digit := (number div 10) mod 10;
    if odd(digit) then
      writeln(digit, ' - нечетная цифра')
    else
      writeln(digit, ' - четная цифра');
    
    digit := number mod 10;
    if odd(digit) then
      writeln(digit, ' - нечетная цифра')
    else
      writeln(digit, ' - четная цифра');
  end
  else
    writeln('Пожалуйста, введите трехзначное число.');

  readln;
end.

Эта программа сначала запрашивает у пользователя трехзначное число, а затем извлекает каждую цифру из числа и проверяет, является ли она нечетной или четной. Результаты выводятся на экран.