Если под "кб" подразумевались килоБИТы, то 3500*1024/16/3200 = 70 секунд. Если – килоБАЙТы, то 3500*1024*8/16/3200 = 560 секунд.
Как Я понимаю нужно узнать сколько существует различных способов расставить слова "Я" "люблю" "тебя".
На первое место в предложении мы может поставить одно из 3 слов. На второе 2 оставшихся (1 слово мы оставили на первом месте). На третье одно оставшиеся.
Получаем 3*2*1 = 6 То есть факториал 3.
Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.
Что? Какой такой робот ? Пиши подробнее)
Sub Prime()
Dim k As Integer, x As Double
k = 0
Do
x = CDbl(InputBox("Введи число, ноль завершит работу"))
If x = 0 Then Exit Do
k = k + 1
Loop
MsgBox "Введено чисел: " & CStr(k)
End Sub