<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger, i -> Sqr(i + 1), 1).Sum.Println
end.
Может быть фирма Apple, издающая iphone?
Сама фирма была основана 1 апреля 1976 года. Анонс первого айфона состоялся 9 января 2007 года, в продаже появился 29 июня того же года.
Последний невозможно перевести, так как число записано неверно, число в 7 СС может состоять из цифр от 0 до 7(а там есть 8)
Полное решение не писал, так как много.
В интернете посмотрите тему "Перевод из одной Системы Счисления в другую"
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(10,-10,50); a.Println;
a.Transform(t->t<0?-t:t); a.Println
end.
<u>Пример</u>
4 -6 26 -5 14 17 17 47 -9 26
4 6 26 5 14 17 17 47 9 26
Чтобы не было такого, что 1 человек несколько раз регистрировался и также, чтобы человек мог восстановить свою страницу в любое время,даже если его взломали.