Сначала был каталог
D:\Школа\Информатика\<span>Практика_по_КИТ.doc.
</span>Потом создали подкаталог
D:\Школа\Информатика\8_класс\
И туда перенесли Практика_по_КИТ.doc.
Получилось:
D:\Школа\Информатика\8_класс\Практика_по_КИТ.doc.
Поэтому самый первый котолог это
D:\Школа\Информатика\
Ответ Б
Sub Z1()
Dim x As String
f = True
x = InputBox("Введите слово: ")
For i = 2 To Len(x) - 2 Step 2
If Mid(x, i, 1) <> Mid(x, i + 2, 1) Then f = False
Next i
If f = True Then
MsgBox ("Условие выполняется")
Else: MsgBox ("Условие не выполняется")
End If
<span>End Sub</span>
Program z8;
<span>Var p:integer; </span>
<span>Begin </span>
<span>p:=8; </span>
<span>while p<20 do </span>
<span>begin </span>
<span>p:=p+2; </span>
<span>writeln(p); </span>
<span>end; </span>
<span>end.</span>
В 2-ой - 110000010
в 8 - ой - 602
<span>в 16 - ой - 182</span>
Const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(361)+40;
write(a[i]:5);
end;
writeln;
s:=0;
for i:=1 to n do
if a[i] mod 5 = 0 then s:=s+a[i];
writeln('s = ',s);
end.
Пример:
<span> 346 213 87 382 165 184 278 261 124 233
s = 165</span>