Немного непонятно, о каком именно коэффициенте сопротивления идёт речь (если задача действительно по информатике, а не по физике). По размерности подходит такое выражение для силы сопротивления (я буду считать, что дано именно оно, плотность воздуха ρ примем равной 1,25 кг/м3):
Уравнение движения парашютиста:
Для решения задачи создадим таблицу, в которой будут столбцы: время, координата, скорость и ускорение. Со временем проще всего, это последовательные шаги, начиная с 0 с с некоторым шагом t. Затем вычисляем по формуле ускорение, скорость (изменение скорости есть a * t), и координату (изменение координаты есть v * t). Когда парашютист достигнет земли, его координата не должна меняться, это можно сделать при функции ЕСЛИ.
Получившийся файл Excel и графики приложены к ответу.
program raf105;
var fam,pol:array[1..100] of string;
n,i:integer;
begin
write('Введите количество детей: ');
readln(n);
writeln('Вводите фамилии и пол (Заглавной буквой М/Ж)');
for i:=1 to n do
begin
writeln;
write('[',i,'] ','Фамилия: ');
readln(fam[i]);
write(' Пол: ');
readln(pol[i]);
end;
writeln;
writeln('Фамилии девочек начинающиеся на "А" и мальчиков заканчивающиеся на "в"');
for i:=1 to n do
if (fam[i][1]='А') and (pol[i]='Ж') or (fam[i][length(fam[i])]='в') and (pol[i]='М')
then writeln(fam[i]);
end.
Язык программирования PascalABC