" У вас имеется число 0 и две операции с данным числом. Первая операция MULпозволяет умножить данное число на 10, вторая операция ADDпозволяет прибавить число 1.выведите последовательность операции для получения числах. Выведит...
" У вас имеется число 0 и две операции с данным числом. Первая операция MULпозволяет умножить данное число на 10, вторая операция ADDпозволяет прибавить число 1.выведите последовательность операции для получения числах. Выведите не более 30 операций"
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1088
procedure GetOper(n:longint; var Oper:string);
begin
if n>9 then begin
var k:=n mod 10;
n:=(n-k) div 10;
for var i:=1 to k do Oper:='ADD '+Oper;
Oper:='MULT '+Oper;
GetOper(n,Oper)
end
else
for var i:=1 to n do Oper:='ADD '+Oper
end;
begin
var Oper:='';
var n:=ReadInteger('Введите число n: ');
GetOper(n,Oper);
Writeln(Oper)
end.
Тестовое решение:
Введите число n: 3542
ADD ADD ADD MULT ADD ADD ADD ADD ADD MULT ADD ADD ADD ADD MULT ADD ADD
Не нашли ответ?
Похожие вопросы