Январь принадлежит материнскому каталогу Зима, если следовать из условия. Таким образом, полное имя файла будет таким: <span>D:\2013\Зима\Январь\Вьюга.doc</span>
Var s,s1:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
while s1<>'' do
begin
p:=pos(' ',s1);
if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1));
delete(s1,1,p);
end;
<span>end.</span>
Красный : входить в кабинет без разрешения учителя. Толкаться в дверях. Трогать разъёмы. Прикасаться к проводам питания. Приносить в класс компакт диски... Пытаться самостоятельно исправить проблемы. Включать игры которые не относятся к уроку. Работать грязными руками. Прикасаться к екрану или задней части монитора. Работать на компьютере во влажной одежде. Класть вещи на составные части компьютера. Удалять папки и файлы без разрешения учителя.
зеленый: все остальное.
2 задание
2, 3 , 1 , 4, 5, 7, 6, 8, 9.
<span>1. Выписать 3 букву входного слова2. Выписать 2 букву входного слова 3. выписать первую букву</span>4. дописать букву <span>Конец: Выполни алгоритм для каждого слова на входе. Все результаты совпали со словами на выходе?</span>"а"
При уменьшении пиксели накладываются друг на друга.Цвет теряется. Мелкие детали могут смазаться.Поэтому Ответ с)