Var n:integer;
begin
readln(n);
if ((n div 10)+ (n mod 10) )=5 then
writeln('Сумма равно 5')
else writeln('Сумма не равна 5');
end.
Скорей всего наблюдаем, если нам интересно то за чем мы наблюдаем, то эти моменты остаются у нас в голове.
Названия взяты из Paint Windows XP
После выполнения цикла элементы массива будут равны:
4, 8, 12, 16, 20, 10, 8, 6, 4, 2
Наибольшее повторяющееся значение = 8
<span>фрегат & эсминец 500
фрегат 2000
эсминец 2500</span>
Формула включений исключений
<span>фрегат | эсминец = </span>фрегат + эсминец - (фрегат & эсминец) = 2500+2000-500 = 4000