Числа, которые удолетворяют этому условию являются високосными годами (как уже отметили ранее это числа, которые делятся на 4, но не делятся на 100 или числа, которые делятся на 400)
Var a,b:integer;
begin
readln(a,b);
write(b,a);
end.
Начало
ввод х или дано х
а=х+4
b=a* 2
c=b+ 4
y= c / 5
вывод у
конец
Это линейный алгоритм
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
a.Transform(t -> Abs(t));
a.Println
end.
<h2>-1 -6 -8 4 10 -5 -7 -8 10 6</h2><h2>1 6 8 4 10 5 7 8 10 6</h2>
Для цыфры 1025.
Пишем последовательность чисел
1024 512 256 128 64 32 16 8 4 2 1
чтобы получилось 1025 нам нужно взять с этой последовательности число 1024 и 1 = 1024+1=1025,
те числа которые взяли, над ними пишем "1"
1 0 0 0 0 0 0 0 0 0 1
1024 512 256 128 64 32 16 8 4 2 1
вот вам и перевод 1025=10000000001
----------------------------------------------------------------------------------------------------
950
0 1 1 1 0 1 1 0 1 1 0
1024 512 256 128 64 32 16 8 4 2 1
950=1110110110
----------------------------------------------------------------------------------------------------
543
0 1 0 0 0 0 1 1 1 1 1
1024 512 256 128 64 32 16 8 4 2 1
543=1000011111
--------------------------------------------------------------------------------------------------
489=111101001