Число 1110001 в восьмиразрядном представлении имеет вид​

Оплата покупки в магазине, когда есть выбор оплаты - картой или наличными, если наличными то какими купюрами.
Задача подбора ноутбука по различным параметрам для покупки. Нужен такой то процессор, такая то видеокарта, но чтобы цена не превышала заданную.
Задача добраться до места назначения используя разветвленную сеть веток метро. Можно добраться разными маршрутами, нужно выбрать чтобы было меньше пересадок или меньше длинна пути чтоб была или как можно ближе к месту назначения чтобы выйти в итоге

Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45