Результат перевода числа<span> 138 </span>
<span>из десятичной в двоичную систему счисления: </span>
<span>10001010.
Или это не методом разности? </span>
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ArrRandom(ReadInteger('n='),0,1).Println.Sorted.Println
end.
<u>Пример</u>
n= 15
0 0 1 1 0 1 1 1 1 0 0 1 1 0 1
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1
Треугольников 40
и 10 квадратов
Program yrok;
var a:integer;
begin
writeln ('Введите месяц');
readln(a);
if a=1
then writeln('январь')
else if a=2
then writeln('Февраль')
else if a=3
then writeln('Март')
else if a=4
then writeln('Апрель')
else if a=5
then writeln('Май')
else if a=6
then writeln('Июнь')
else if a=7
then writeln('Июнь')
else if a=8
then writeln('Август')
else if a=9
then writeln('сентябрь')
else if a=10
then writeln('октябрь')
else if a=11
then writeln('ноябрь')
else if a=12
then writeln('декабрь')
else writeln('такого месяца нет');
end.
<em>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
ReadSeqInteger(n).JoinIntoString('').
Where(c->c in ['2','4','6','8']).Select(c->c.ToDigit).Sum.Println
end.
<u>Пример</u>
13
4492 13638 -4490 4186 13985 -4266 5805 -26574 28710 -378 17920 1886 -24200
146