Задание1: написать пояснения к каждой строчке (что она делает)

Программа нахождения корней квадратного уравнения

var a,b,c: real;

x1,x2,D: real;

begin

readln(a,b,c);

D := b*b - 4*a*c;

if D<0 then

writeln('Корней нет')

else if D=0 then begin

x1 := -b/2/a;

writeln('x1=x2=',x1);

end

else begin

x1 := (-b-sqrt(D))/2/a;

x2 := (-b+sqrt(D))/2/a;

writeln('x1=',x1,' x2=',x2);

end;

end.

Задание2: написать пояснения к каждой строчке (что она делает)

var n,i,sum:integer;

begin

readln (n,i);

sum := 0;

while (i > 0) do begin

sum := sum + (n mod 10);

n := n div 10;

dec(i);

end;

writeln('Сумма = ', sum);

end.

first_list = []

second_list = []

coincidences_list = []

first_list_len = input('Длина первого списка: ')

for i in range(1, int(first_list_len)+1):

   input_text = input('{} элемент певого списка: '.format(i))

   first_list.append(input_text)

second_list_len = input('\nДлина второго списка: ')

for i in range(1, int(second_list_len)+1):

   input_text = input('{} элемент певого списка: '.format(i))

   second_list.append(input_text)

for i in first_list:

   if i in second_list and i not in coincidences_list:

       coincidences_list.append(i)

print('\nПовторяющиеся значения: {}'.format(' '.join(coincidences_list)))

Приложение создано на основе шаблона C++/CLR Windows Forms für Visual Studio 2017

Предусмотрен ввод дробных чисел, вывод суммы проводится с не более чем 2 знаками после запятой. Также присутствует простейший контроль ввода данных: обработаны случаи неполного ввода данных и некорректного ввода данных. В обоих случаях вызывается MessageBox с сообщением об ошибке.

.txt файл, прикрепленный к ответу - .rar архив со смененным расширением. Для получения файлов необходимо снова сменить расширение файла на .rar и открыть любым архиватором. Файл trip.exe находится в trip.rar\trip\Debug\