4. С:\учёба\математика\ГИА.
С:\учёба\математика
С:\учёба\математика\каталог1
С:\учёба\математика\каталог1\каталог2
подходит:
С:\учёба\математика\2013\Расписание
Ответ: 4
5.
1) afeget.doc
2) ufegelian.dim
3) zfegininal.disk
Program spinogryz21;
var
x, i: integer;
yes: boolean;
begin
yes := FALSE;
write('Введите число Х ');
readln(x);
for i := 1 to 4 do
begin
if (x mod 10) = 6 then yes := TRUE;
x:=x div 10;
end;
if yes then writeln('6 входит в число Х')
else writeln('6 не входит в число Х');
end.