Двоичный перебор

@damir2407 · Регистрация: 01.10.2015

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

Записать число 7 с помощью 4-х троек и знаков(+,-,*,/)

@Hitoku · 28.04.2017, 15:41

Ну вот: 3/3+3+3

@volvo · 29.04.2017, 12:07

Программно:

Pascal

{$reference System.Data.dll}
Uses System.Data;
 
procedure p(level : integer; s : string);
begin 
  if level = 4 then
    with new DataTable() do
    begin
      if System.Convert.ToInt32(Compute(s, '')) = 7 then writeln(s)
    end
  else
    foreach var ch in Arr('/', '*','-', '+') do p(level + 1, s + ch + '3')
end;
 
begin
  p(1, '3');
end.

@damir2407 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 30
		1
	Двоичный перебор 28.04.2017, 15:33. Показов 1973. Ответов 2 Метки нет (Все метки) Записать число 7 с помощью 4-х троек и знаков(+,-,*,/) 0

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	28.04.2017, 15:41	2
	Ну вот: 3/3+3+3 0

	29.04.2017, 12:07

Двоичный перебор

Решение