Полные имена файлов, хранящихся на диске d: d: \млекопитающие\ластоногие\тюлени.txt d: \млекопитающие\ластоногие\моржи.txt d: \млекопитающие\хищники\медведи\панды.txt d: \млекопитающие\хищники\медведи\бурый_медведь.txt d: \млекопитающие\хищники\гепарды.txt d: \млекопитающие\парнокопытные\свиньи.tx td: \млекопитающие\парнокопытные\олени.txt d: \млекопитающие\парнокопытные\бегемоты.txt d: \млекопитающие\грызуны\бобры.txt d: \млекопитающие\сумчатые\.txt изобразите соответствующую файловую структуру.

Ответ в прикреплённом файле

начнём с того, что эта программа даже не скомпилируется. вы пытаетесь вывести какой-то неизвестный компилятору объект ura! , uraa! и так далее. вместо этого вам необходимо занести это под кавычки " " - так компилятор будет знать, что это строка, которую необходимо вывести в консоль.

ход работы

если(5 < 4 и 2 > 5) = если(ложь и ложь) = если(ложь) - пропускаем это условие, переходим к следующему.

если(5 > 0 или 5 < 4) = если(истина или ложь) = если(истина) = условие выполняется, на консоль выводится надпись "uraa! ";

Впрограмме предполагается, что слова отделяются друг от друга одним пробелом, знаков препинания нет. const m=3; var s: string; sl: array[1..m] of string=('значит', 'вот', 'автомобиль'); n: array[1..m] of integer; i: integer; procedure pr(s1,s2: string; var k: integer); var l,p: integer; begin   s1: =' '+s1+' ';   l: =length(s2);   k: =0;   p: =pos(s2,s1);   while p> 0 do   begin   if (s1[p-1]=' ')and(s1[p+l]=' ') then k: =k+1;   delete(s1,1,p+l);   p: =pos(s2,s1);   end; end; begin writeln('введите текст: '); readln(s); for i: =1 to m do   begin   pr(s,sl[i],n[i]);   writeln(sl[i],' - ',n[i]);   end; end. пример (слов меньше 40): введите текст: значит так вот автомобиль раз вот автомобиль два вот автомобиль три значит - 1 вот - 3 автомобиль - 3