Ребят Паскаль Напишите программу, которая в последовательности целых чисел определяет разность количества четных и нечетных чисел. Программа получает на вход числа последовательности, условием остановки является ввод числа 0. Количество чисел заранее неизвестно, но не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число — разность количества четных и нечетных чисел.

PascalABC.NET 3.6.2

begin

 var S := ReadSeqIntegerWhile(p -> p <> 0).ToList;

 var odd := S.Where(p -> p mod 2 <> 0).Count;

 var even := S.Where(p -> p mod 2 = 0).Count;

 var diff := abs(even - odd);

 diff.Println;

end.

// PascalABC.NET

begin

   var diff := 0;

   ReadSeqIntegerWhile(p -> p <> 0)

       .Foreach(p -> begin diff += p.IsOdd ? -p : p end);

   diff.Print

end.

1.

a, b = map(int, input("Sides:").split())

s = (a * b) / 2

print(s)

2.

a_price, b_price = map(int, input("Price:").split()) # Цена товаров

a_number_begin, b_number_begin = map(int, input("Number at the beginning").split())

# Количество в начале рабочего дня

sold = a_sold, b_sold =  map(int, input("Sold goods").split()) #Проданный товар

print("Cost at the begin 1:", a_price * a_number_begin,"2:", b_price * b_number_begin)

print("Cost of unsold goods 1:", (a_number_begin - a_sold) * a_price,"2:", (b_number_begin - b_sold) * b_price)

3.

count = int(input())

start_min = 490 # Во сколько начинаются уроки в минутах

work_time = 55 # Время урока и перемены, можно сложить

result = count * work_time + start_min

print("Hours:", result // 60, "Min:", result % 60) # // - это целочисленное деление, % - остаток от деления

1.

a, b = map(int, input("Sides:").split())

s = (a * b) / 2

print(s)

2.

a_price, b_price = map(int, input("Price:").split()) # Цена товаров

a_number_begin, b_number_begin = map(int, input("Number at the beginning").split())

# Количество в начале рабочего дня

sold = a_sold, b_sold =  map(int, input("Sold goods").split()) #Проданный товар

print("Cost at the begin 1:", a_price * a_number_begin,"2:", b_price * b_number_begin)

print("Cost of unsold goods 1:", (a_number_begin - a_sold) * a_price,"2:", (b_number_begin - b_sold) * b_price)

3.

count = int(input())

start_min = 490 # Во сколько начинаются уроки в минутах

work_time = 55 # Время урока и перемены, можно сложить

result = count * work_time + start_min

print("Hours:", result // 60, "Min:", result % 60) # // - это целочисленное деление, % - остаток от деления