Уменьшение числа N в M

@DimitriVegas · Регистрация: 18.11.2018

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

Есть число N если оно не парное, тогда отнять единицу и вывести на экран "-1", если парное разделить на 2 и вывести на экран ":2"
Ввод данных: N, M-число в которое превращаем N
Вывод данных: операции "-1", ":2"
Мой код:

Pascal

var n, m:Integer;
begin 
ReadLn(n, m);
while n<>m do
begin 
if n mod 2=1 then begin 
n:=n-1;
Write('-1');
end;
if n mod 2=0 then begin 
n:=n div 2;
Write(':2');
if n div 2<m then begin 
n:=(n*2)-1;
Write('-1');
end;
end;
end;
end.

@ZX Spectrum-128 · 17.12.2018, 09:05

Сообщение от DimitriVegas

Есть число N если оно не парное, тогда отнять единицу и вывести на экран "-1", если парное разделить на 2 и вывести на экран ":2"

Вы сами-то понимаете, что вы напечатали?

@DimitriVegas · 27.12.2018, 20:31 **[ТС]**

ZX Spectrum-128, Например нам нужно превратить число 27 в 4.
Ввод данных:
27 4
Вывод:
-1; :2; -1; :2; -1; -1.

ФедосеевПавел · 29.12.2018, 21:58

DimitriVegas, согласно предложенного алгоритма, за один шаг цикла вы должны проверить на чётность число n и сделать одно из предложенных действий (в if-then-else). Но вместо этого вы последовательно выполняете два действия (if-then, if-then). Так для числа n=5 вы при возврате к условию цикла будете иметь не 4, а 2.
Т.е. два if-then нужно заменить одним if-then-else.
А также учесть возможность неправильных данных, не приводящих к равенству n и m после преобразований. Например при n=15 и m=5.

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	17.12.2018, 09:05	2
	Сообщение от DimitriVegas Есть число N если оно не парное, тогда отнять единицу и вывести на экран "-1", если парное разделить на 2 и вывести на экран ":2" Вы сами-то понимаете, что вы напечатали? 0

@DimitriVegas 0 / 0 / 0 Регистрация: 18.11.2018 Сообщений: 4
	27.12.2018, 20:31 [ТС]	3
	ZX Spectrum-128, Например нам нужно превратить число 27 в 4. Ввод данных: 27 4 Вывод: -1; :2; -1; :2; -1; -1. 0

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	29.12.2018, 21:58	4
	DimitriVegas, согласно предложенного алгоритма, за один шаг цикла вы должны проверить на чётность число n и сделать одно из предложенных действий (в if-then-else). Но вместо этого вы последовательно выполняете два действия (if-then, if-then). Так для числа n=5 вы при возврате к условию цикла будете иметь не 4, а 2. Т.е. два if-then нужно заменить одним if-then-else. А также учесть возможность неправильных данных, не приводящих к равенству n и m после преобразований. Например при n=15 и m=5. 0