1 Мбайт = 1024 Кбайт
0.3 Мбайт = 0.3*1024 Кбайт = 307.2 Кбайт
Program n1;
var i, S: integer;
begin
S:=0;
for i:=1 to 99 do S:=S+i;
writeln(S);
end.
Удаление
копирование
перемещение
вставка
Граф прикреплен..........................
Sub aaa()
Const n = 50
Dim a(1 To n) As Double, Zero As Boolean
Randomize Timer
For i = 1 To n
a(i) = Int(21 * Rnd - 10)
Next i
k = 0: Zero = False
For i = 1 To n
If a(i) = 0 Then
Zero = True
Exit For
End If
Next i
If Zero Then
MsgBox "Количество членов последовательности равно " + CStr(i)
Else
MsgBox "В последовательности нет нулей"
End If
End Sub