Сначала был каталог
D:\Школа\Информатика\<span>Практика_по_КИТ.doc.
</span>Потом создали подкаталог
D:\Школа\Информатика\8_класс\
И туда перенесли Практика_по_КИТ.doc.
Получилось:
D:\Школа\Информатика\8_класс\Практика_по_КИТ.doc.
Поэтому самый первый котолог это
D:\Школа\Информатика\
Ответ Б
Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.
Var
a,b,j,v,c:string;
q: integer;
begin
writeln('Напишите своё имя');
readln(a);
writeln('Напишите дату рождения, год целиком');
readln(q);
q:=2016-q;
write(' - Привет,',a,'. ');
if q<7 then begin writeln('Ты уже пошел в детский сад?'); readln (' - ',b);
if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи') end; else if (7<q) and (q<17) then begin writln (' - Ты пошёл в школу?'); readln (' - ',c); if (c='Да') or (c='да') then begin writeln (' - В какую школу ты пошёл?'); readln (' - ',v); writeln (' - В каком ты классе?'); readln (' - ',j);end;
end.
Так можно продолжать бесконечно
Program Fibonacci;
var
p, q, r, i, n: integer;
begin
write('Alphaeus asks: please enter n = ');
readln(n);
p := 1;
writeln(p);
q := 1;
writeln(q);
for i:=3 to n do begin
r := p+q;
writeln(r);
p := q;
q := r
end;
end.
Пусть изначально порядок записан, как "С. D".
Если D > C, переставить их местами. Иначе не менять порядок.