основание 2 | основание 8 | основание 10 | основание 16
100111 47 39 27
1101001 151 105 69
10111100 274 188 BC
11101010 352 234 EA
Если он в браузере,попробуй cntrl+shift+t
Макет самолёта тоесть предмет..............
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(20, k -> (2 * k + 1) / (4 * k * k * k - 3), 1).Sum.Println
end.
<h2>3.36697051758274 </h2>
Может получиться так:
//Pascal ABC.NET v 3.3
var
x, s: integer;
begin
readln(x);
s := (x div 100) + (x mod 100) + (x mod 10);
writeln(s);
end.