Решите задачу по информатике Самолёт находится на высоте 5000 метров. Обнаружилась неисправность работы двигателей самолёта, в результате которой самолёт начал падать. Бортовой компьютер производит диагностику двигательного оборудования и выдаёт пилоту оптимальный алгоритм действий для самолёта. Для решения этой задачи бортовому компьютеру необходимо произвести объём работ, равный 108 вычислительных операций. Критическая минимальная высота, находясь на которой самолёт может быть выведен пилотом из пике и составляет 2000 метров. Вычислите, каково должно быть минимальное быстродействие бортового компьютера, что бы пилот успел самолёт до достижения им критической отметки высоты. Трением самолёта о воздух, а так же остаточной подъёмной силой крыла - пренебречь, считать вертикальную проекцию начальной скорости падения самолёта равной нулю. Для удобства вычислений считать ускорение свободного падения постоянной величиной, равной 10 м/с2.
Var
A: text;
i,j,n,m : byte;
d: string;
Sim:char;
Begin
write('Введите имя текстового файла '); {Например: "test" он создастся там где находится сама программа }
read(d);
Assign(A,d);
rewrite(A);
write('Введите количество строк: N= ');
readln(n);
write('Введите количество символов в строке: M= ');
readln(m);
for I:=1 to n do
begin
Sim:=Chr(Ord('1')+I-1);
For J:=1 to m do
write(A,Sim);
writeln(A);
end;
close(A);
end.
Var
p: text;
i, n : byte;
s,min,m: string;
Begin
write('Введите имя файла '); {Например: C:.txt}
read(m);
Assign(p,m);
reset(p);
read(p,s);
min:=s;
n:=100;
for i:=1 to n do
begin
readln(p,s);
while not eof(p) do
{нахождение минимальной строки}
begin
readln(p,s);
if length(s) <= length(min) then
min:=s;
end;
end;
close(p);
write('самая короткая строка: ',min);
End.