В алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название
В алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название0,1,2,3 - 4 цифры система счисления называется четверичная
В алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название0,1,2,3 - 4 цифры система счисления называется четверичная0,1,2,3,4,5 - 6 цифр система счисления называется шестеричная
В алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название0,1,2,3 - 4 цифры система счисления называется четверичная0,1,2,3,4,5 - 6 цифр система счисления называется шестеричная0,1,2,3,4,5,6,7,8 - 9 цифр система счисления называется девятеричная
В алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название0,1,2,3 - 4 цифры система счисления называется четверичная0,1,2,3,4,5 - 6 цифр система счисления называется шестеричная0,1,2,3,4,5,6,7,8 - 9 цифр система счисления называется девятеричная0,1,2,3,4,5,6,7,8 ,9,А,В - 12 цифр система счисления называется двенадцатеричная (это если выписаны правильно все буквы и больше нет никаких. В случае, если есть ещё буквы C,D,E,F - СИСТЕМА СЧИСЛЕНИЯ БУДЕТ НАЗЫВАТЬСЯ ШЕСТНАДЦАТЕРИЧНАЯ
Если сделай эту ответ лучшим мне на следующий статус надо)
Храним в памяти 3 последних считанных числа. Для каждой такой тройки проверяем, верно ли, что a[i] - a[i - 1] = a[i - 1] - a[i - 2] > 0. Если это так, выводим тройку, устанавливаем флажок found и выходим из цикла. Если после завершения работы цикла found = false, то тройка не найдена, нужно вывести -1.
В PascalABC.NET тип integer хранит числа до 2 с лишним миллиардов, все числа и разность чисел должны в нем поместиться.
Код (PascalABC.NET 3.4.2.1837):
begin
var values := new integer[3];
var n := readinteger;
(values[1], values[2]) := readinteger2;
var prev_diff := values[1] - values[0];
var found := false;
for var i := 3 to n do begin
values[i mod 3] := readinteger;
var diff := values[i mod 3] - values[(i - 1) mod 3];
if (diff = prev_diff) and (diff > 0) then begin
print(values[(i - 2) mod 3], values[(i - 1) mod 3], values[i mod 3]);
В алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название
В алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название0,1,2,3 - 4 цифры система счисления называется четверичная
В алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название0,1,2,3 - 4 цифры система счисления называется четверичная0,1,2,3,4,5 - 6 цифр система счисления называется шестеричная
В алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название0,1,2,3 - 4 цифры система счисления называется четверичная0,1,2,3,4,5 - 6 цифр система счисления называется шестеричная0,1,2,3,4,5,6,7,8 - 9 цифр система счисления называется девятеричная
В алфавитах ориентироваться легко: смотрим сколько цифр используется такое будет и название0,1,2,3 - 4 цифры система счисления называется четверичная0,1,2,3,4,5 - 6 цифр система счисления называется шестеричная0,1,2,3,4,5,6,7,8 - 9 цифр система счисления называется девятеричная0,1,2,3,4,5,6,7,8 ,9,А,В - 12 цифр система счисления называется двенадцатеричная (это если выписаны правильно все буквы и больше нет никаких. В случае, если есть ещё буквы C,D,E,F - СИСТЕМА СЧИСЛЕНИЯ БУДЕТ НАЗЫВАТЬСЯ ШЕСТНАДЦАТЕРИЧНАЯ
Если сделай эту ответ лучшим мне на следующий статус надо)
Храним в памяти 3 последних считанных числа. Для каждой такой тройки проверяем, верно ли, что a[i] - a[i - 1] = a[i - 1] - a[i - 2] > 0. Если это так, выводим тройку, устанавливаем флажок found и выходим из цикла. Если после завершения работы цикла found = false, то тройка не найдена, нужно вывести -1.
В PascalABC.NET тип integer хранит числа до 2 с лишним миллиардов, все числа и разность чисел должны в нем поместиться.
Код (PascalABC.NET 3.4.2.1837):
begin
var values := new integer[3];
var n := readinteger;
(values[1], values[2]) := readinteger2;
var prev_diff := values[1] - values[0];
var found := false;
for var i := 3 to n do begin
values[i mod 3] := readinteger;
var diff := values[i mod 3] - values[(i - 1) mod 3];
if (diff = prev_diff) and (diff > 0) then begin
print(values[(i - 2) mod 3], values[(i - 1) mod 3], values[i mod 3]);
found := true;
break;
end;
prev_diff := diff;
end;
if not found then print(-1);
end.