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

@Nick Koch · Регистрация: 01.04.2018

Студворк — интернет-сервис помощи студентам

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

@Hitoku · 01.04.2018, 21:25

Вроде этого

Pascal

function P(n, z: integer): integer;
var res: integer;
    b: boolean;
begin
  res := 1;
  b := false;
  while n > 0 do begin
    if n mod 10 < z then begin
      res := res * n mod 10;
      if not b then b := true;
    end;
    n := n div 10;
  end;
  if b then P := res
  else P := 0;
end;
 
var n, z: integer;
begin
  read(n, z);
  writeln(P(n, z));
end.

@Nick Koch · 01.04.2018, 21:28 **[ТС]**

Hitoku, мне кажется, это не то что нужно, или я чего-то не понимаю? res:=1 это натуральное число?

@Hitoku · 01.04.2018, 21:30

Nick Koch, не знаю

@bormant · 01.04.2018, 23:27

Hitoku,
в 9 строке точно нет ошибки (приоритет умножения и деления одинаков, а mod -- это тоже деление)?

Pascal

9	res := n mod 10 * res;

или

Pascal

9	res := res * (n mod 10);

В 10 дешевле без проверки:

Pascal

  b:=True;

Добавлено через 13 минут
В сухом остатке:

Pascal

function P(n, z: Integer): Integer;
var
  r, t: Integer;
  b: Boolean;
begin
  P := 0; r := 1; b := False;
  while n > 0 do begin
    t := n mod 10;
    if t < z then begin
      r := r * t; b := True;
    end;
    n := n div 10;
  end;
  if b then P := res;
end;
{ ... }

@Nick Koch 0 / 0 / 0 Регистрация: 01.04.2018 Сообщений: 7
		1
	Дано натуральное число: определить произведение его цифр, меньших z 01.04.2018, 19:51. Показов 956. Ответов 4 Метки нет (Все метки) Дано натуральное число. Определить произведение его цифр, меньших z. 0

@Nick Koch 0 / 0 / 0 Регистрация: 01.04.2018 Сообщений: 7
	01.04.2018, 21:28 [ТС]	3
	Hitoku, мне кажется, это не то что нужно, или я чего-то не понимаю? res:=1 это натуральное число? 0

@Hitoku 1754 / 1346 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	01.04.2018, 21:30	4
	Nick Koch, не знаю 0

Опции темы