<em>Приведу пример на Паскале.</em>
Var x,y:integer;
Begin
x:=5;
y:=3;
If x>y Then
x:x-y
Else
x:=x+y;
writeln(x);
end.
<em>Исход программы зависит от заданных переменных.</em>
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n,k):=(ReadInteger,0);
while n>0 do (n,k):=(n div 10,k+1);
Writeln(k)
end.
var
n, k, i, j: integer;
s: array[1..15] of integer;
begin
assign(input, 'task2.in'); reset(input); readln(n, k); close(input);
assign(output, 'task2.out'); rewrite(output);
for i := 1 to n do
if i <= k then s[i] := 1 else s[i] := 0;
for i := 2 to n do
begin
j := i - 1;
while (j > 0) and (j >= i - k) do
begin
s[i] := s[i] + s[j];
j := j - 1
end
end;
write(s[n]);
close(output)
end.
62 в 2 системе=111110; в 5 системе=222; в 8 системе=76; в 16 системе=3E
101 в 2 системе=1111001; в 5 системе=401; в 8 системе=145; в 16 системе=65
229 в 2 системе=11100101; в 5 системе=1404; в 8 системе=345; в 16 системе=E5