Sub xyz()
a = Val(InputBox("a="))
b = Val(InputBox("b="))
If a < b Then
MsgBox Str(a) + Str(b)
Else
MsgBox Str(b) + Str(a)
End If
End Sub
16гб=16384мб=16777216кб=1.717987e10байт=1.37439e11бит
10мб=10240кб=10485760байт=83886080бит
32кб=32768байт=262144бит
<span>Например, в разговоре мы замещаем реальные объекты их именами, оформители витрин используют манекен - модель человеческой фигуры, конструкторы строят модели самолетов и автомобилей, а архитекторы - макеты здании, мостов и парков. Моделью является любое наглядное пособие, используемое на уроках в школе: глобус, муляж, карта, схема, таблица и т. п.</span><span>Модель важна не сама по себе, а как инструмент, облегчающий познание или наглядное представление объекта.
Тут что тебе надо выбереш!!!)))</span>
<em>var a, i:integer;</em>
<em>procedure del(i:integer; var a:integer);</em>
<em>var j :integer;</em>
<em>begin</em>
<em> a:=0;</em>
<em> for j:=1 to i do</em>
<em> if i mod j = 0 then inc (a)</em>
<em>end;</em>
<em>begin</em>
<em> writeln;</em>
<em> for i:=2 to 1000 do</em>
<em> begin</em>
<em> del(i,a);</em>
<em> if a=2 then write (i, ' ');</em>
<em> end;</em>
<em>end.</em><span><em> </em></span>
На первый слайд щелкаешь правой кнопкой мыши
-добавить слайд
Заходишь в пустой слайд вставляешь картинку
Снова создаешь новый слайд
Снова добавляешь картинку