Вывести 2 переменные в порядке в возрастания, или последовательность чисел от n do d?
Sub z()
Dim a(8) As String
For i = 1 To 8
a(i) = InputBox("Введи слово")
Next i
For i = 1 To 8
Cells(i + 1, 1) = a(i)
n = Len(a(i))
Cells(i + 1, 2) = n
Cells(i + 1, 3) = Mid(a(i), 1, 1)
Cells(i + 1, 4) = Mid(a(i), n, 1)
Next i
<span>End Sub
Первую строку не использовал, оставил для заголовков</span>
11011111.01000111101+<span>110101011.10001100010
</span>1110110011.01100001011+<span>1110001011.01000001011
</span>как то так, В это <span>Шестнадцатиричная</span>
Var
L:integer;
begin
writeln('Введите средний балл ученика: ');
readln(L);
if L>=13 then
writeln('Ученик будет посещать факультатив.');
if L<13 then
writeln('Ученик не может посещать факультатив!');
<span>end.</span>
Їм бути дуже важко, та не зовсім цікаво на початку :( Англійску мову обов`язково знати!!! А так вчися)