Sub cikl()
Dim A(85) As Integer
K = 85
For s = 1 To K
A(s) = Int(11 * Rnd() + 4)
Next s
<span>End Sub</span>
1) 2 * 2 = 4 в 10-чной
4 в десятичной = 10 в четвертичной
2) 2 * 3 = 6 в 10-чной
6 в десятичной = 11 в пятиричной
3) 3 * 3 = 9 в десятиричной
9 в 10-ричной = 13 в 6-ричной
Var
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.
768 строк, это же очевидно...
И не расширение, а разрешение
CLS
a$ = "abc"
INPUT "n = ", n
INPUT S$
IF LEN(S$) < n THEN
n = LEN(S$)
END IF
k = 0
FOR i = 1 TO n - 2
IF MID$(S$, i, 3) = a$ THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END