2. Организуй эти данные в виде таблицы объект-свойство Ош расположен на юге Киргизии в 300 км к юго-западу от Бишкека (700 км по автодороге М43). Город расположен в восточной части Ферганской долины у выхода реки Ак-Буура (Акбура). 27 мая 2020 г. — Общая площадь города составляет 182 кв.км. Карта Оша по районам не имеет конкретных обозначений. Численность населения города, 243тыс. чел. На 2015 год
var i,j,k,shlth:integer;
letter:char;
name,minword,s1,x,x1:string;
f1,f2:text;
f:boolean;
arr:array [1..100] of string;
label 1;
begin
writeln('Введіть імя файлу введення:');
readln(name);
assign(f1,name); reset(f1);
writeln('Введіть імя файлу виводу:');
readln(name);
assign(f2,name); rewrite(f2);
writeln('Введіть букву для пошуку:');
readln(letter);
letter:=lowercase(letter);
j:=1;
while not eof(f1) do
begin
readln(f1,x1);
x:=lowercase(x1);
i:=1;
while (i<=length(x)) and (x[i] <> letter) do
begin
while (i<=length(x)) and (x[i] = ' ') do inc(i);
if (i<=length(x)) and (x[i] <> letter) then
while (i<=length(x)) and (x[i] <> ' ') do inc(i);
end;
if i>length(x) then
begin
writeln(f2,x1);
arr[j]:=x1;
inc(j);
end;
end;
f:=false;
for k:=1 to j do
begin
i:=1;
while (i<=length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i);
if i<length(arr[k])+1 then begin f:=true; goto 1; end;
end;
1: if not f then writeln('У файлі f2 немає слова, відповідного умові вибору') else
begin
while (arr[k][i]<>' ') and (i<=length(arr[k])) do
begin
minword:=minword+arr[k][i];
inc(i);
end;
for k:=1 to j do
begin
i:=1;
while i<=length(arr[k]) do
begin
while (i<=length(arr[k])) and (arr[k][i] = ' ') do inc(i);
if i<=length(arr[k]) then begin shlth:=1; s1:=arr[k][i]; end;
while (i<=length(arr[k])) and (arr[k][i] <> ' ') do begin s1:=s1+arr[k][i]; inc(i); inc(shlth); end;
if shlth<length(minword) then minword:=s1;
end;
end;
writeln('Найкоротша слово у файлі f2: ',minword);
end;
close(f1); close(f2);
end.
ПО служит для выполнения определённых задач пользователя, используя ресурсы устройств компьютера.
2. Сообщение указывает, что на диске не обнаружена операционная система.
3. На разных дисках могут быть установлены разные системы. Если бы для переключения надо было бы каждый раз лезть внутрь компьютера, было бы неудобно. Кроме того, один диск может быть резервным, загрузка будет проходить с него, если загрузка с основного диска закончилась неудачно, чтобы провести тестирование системы, провести откат к предыдущим настройкам или установить новую операционную систему.