42536 / 8=5317 (остаток ==> 0)
5317 / 8=664 (остаток ==> 5<span>)
664 / 8 = 83 </span>(остаток ==> 0<span>)
83 / 8 = 10 </span>(остаток ==> 3<span>)
10 / 8 = 1 </span>(остаток ==> 2<span>)
выписываем начиная с последнего оставшегося числа (1) </span><span>==></span><span> 123050 </span>
1. Материальная модель
2. Информационная модель
3. По сферам знаний
4. По форме подачи
5. Материальные и информационные
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub
I диск = 650 Мбайт
записываем фильм 600 Мбайт < 650 Мбайт
II диск =650 Мбайт
записываем два фильма 55+400 = 450 Мбайт < 650 Мбайт
III диск = 650 Мбайт
записываем музыку 100*3,5=350 Мбайт < 650 Мбайт
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t->t>0).Count);
Println('Во второй половине отрицательных:',a[a.Length div 2:].Println.Where(t->t<0).Count);
end.
Пример:
Введите размер массива: 10
-6 8 -12 -5 -4 16 -1 -14 1 0
-6 8 -12 -5 -4
В первой половине положительных: 1
16 -1 -14 1 0
Во второй половине отрицательных: 2