Pascal. Дано натуральное число. Верно ли, что произведение нечетных цифр данного числа меньше некоторого заданного числа

[Анастасия0]

Дано натуральное число. Верно ли, что произведение нечетных цифр данного числа меньше некоторого заданного числа.

[Serge_Bliznykov]

readLn(n);
readLn(k);
p:=1;
while n>0 do begin
  if odd(n mod 10) then p:=p*(n mod 10);
  n := n div 10
end;
if p<k then WriteLn('Верно') else WriteLn('Не верно!');

[Анастасия0]

начало как я понимаю так будет выглядеть:
var n,k:integer;
p:real;
begin
writeln('Введите число:');
readln(n);
?
И еще вопрос как нужно описать k?

[Serge_Bliznykov]

Сообщение от Анастасия0

начало как я понимаю так будет выглядеть:

да, вполне.

Сообщение от Анастасия0

И еще вопрос как нужно описать k?

А разве Вы не описали k ?

Сообщение от Анастасия0

var n,k:integer;

[Анастасия0]

Программа не решает или я не понимаю что требуют... А после then не должно быть else?

var n,k:integer;
    p:real;
begin
     writeln('Введите число');
     readln(n);
     readln(k);
     p:=1;
     while n>0 do begin
                  if odd(n mod 10) then p:=p*(n mod 10);
                  n := n div 10
                  end;
     if p<k then WriteLn('Верно') else WriteLn('Не верно!');
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Сообщение от Анастасия0

Программа не решает или я не понимаю что требуют

Простите, но это не вопрос, а утверждение.
Вполне допускаю, что не понимаете.
Спрашивайте, что не понятно?

Сообщение от Анастасия0

А после then не должно быть else?

а разве там нет else после then ?

[Анастасия0]

Ну как я вижу else отсутствует :

begin
       if odd(n mod 10) then p:=p*(n mod 10);
       n := n div 10
end;

и я не понимаю, что обозначает k и как считает этот алгоритм, что он по идее находит? Условие задачи разве здесь выполняется?

[Serge_Bliznykov]

Сообщение от Анастасия0

if odd(n mod 10) then p:=p*(n mod 10);

в данном случае ничего делать по ИНАЧЕ (else) не нужно, поэтому else и нет.
потому что в данном случае "иначе" - если цифра в числе чётная. по условию задачи, если цифра чётная,
то нам с ней ничего делать не надо.

if odd(n mod 10) then p:=p*(n mod 10);

а эта строчка означает буквально следующее
если последняя цифра числа является нечётной, тогда произведение, полученное ранее домножим на эту последнюю цифру.

n := n div 10

отбросим последнюю цифру числа путём целочисленного деления на 10

Сообщение от Анастасия0

что он по идее находит?

в переменной p данный алгоритм находит произведение нечетных цифр данного числа (см. задание).

потом сравниваем p с заданным числом k
и определяем, Верно ли, что произведение нечетных цифр данного числа меньше некоторого заданного числа
если p меньше k, тогда Верно.

[Анастасия0]

Спасибо большое что помогли без вас бы не сдала! А если нужно будет сделать с процедурой (с параметрами) как будет выглядеть? Если вы конечно можете помочь.

[Serge_Bliznykov]

Сообщение от Анастасия0

А если нужно будет сделать с процедурой (с параметрами) как будет выглядеть?

примерно так:

procedure multiply_odd_digit(n : integer; var res : real);
begin
     res:=1;
     while n>0 do 
     begin
         if odd(n mod 10) then res:=res*(n mod 10);
         n := n div 10
     end;
end;

var n,k:integer;
    p:real;
begin
     writeln('Введите числа n и k');
     readln(n);
     readln(k);
     multiply_odd_digit(n, p);
     if p<k then WriteLn('Верно') else WriteLn('Не верно!');
end.

или так:

procedure check_multiply_odd_digit_less_then_K(n,k : integer; var isLess : boolean);
var p: real;
begin
     p:=1;
     while n>0 do 
     begin
         if odd(n mod 10) then p:=p*(n mod 10);
         n := n div 10
     end;
     isLess := p<k;
 
end;

var n,k:integer;
    flag:boolean;
begin
     writeln('Введите числа n и k');
     readln(n);
     readln(k);
     check_multiply_odd_digit_less_then_K(n,k, flag);
     if flag  then WriteLn('Верно') else WriteLn('Не верно!');
end.

или так:

procedure print_multiply_odd_digit_less_then_K(n,k : integer);
var p: real;
begin
     p:=1;
     while n>0 do 
     begin
         if odd(n mod 10) then p:=p*(n mod 10);
         n := n div 10
     end;
     if p<k  then WriteLn('Верно') else WriteLn('Не верно!');
 end;

var n,k:integer;
begin
     writeln('Введите числа n и k');
     readln(n);
     readln(k);
     print_multiply_odd_digit_less_then_K(n,k);
end.

выбирайте, какой вариант больше нравится!