Уменьшив размер объекта ты уменьшишь кол-во пикселей на сам объект.
Лупа расширяет размер пикселя,увеличивая объект.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadInteger('Яблок было');
var d:=ReadInteger('Детей гуляло');
Writeln('Каждый получил яблок: ',a div d);
Writeln('На компот пошло яблок: ',a mod d)
end.
<u><em>Тестовое решение:</em></u>
Яблок было 37
Детей гуляло 7
Каждый получил яблок: 5
На компот пошло яблок: 2
Дано:
v= 32768 бит/с.
t= 48c.
i= 2 байт
k= 128
Найти: n
Определим информационный объем переданного файла I₁=v*t, где v - скорость передачи, t- время передачи
I₁= 32768*48= 1572864 бит
1572864 бит/8= 196608 байт
Определим информационный объем одной страницы: I₂=i*k, где i - количество байт на один символ, k- количество символов на одной странице
I₂=2*128*=256 байт
Тогда разделив общий объем файла на объем одной страницы получим искомое количество страниц:
n=I₁/I₂= 196608/256= 768
Ответ: 768 страниц.
Vb
dim matt() as integer
dim x,y as integer
x=5
y=5
redim matt(x,y)
randomize
for a as integer = 0 to x
for b as integer = 0 to y
matt(x,y)= (rnd()*88)+11
next
next
dim i,z as integer
do
matt(i,z)=0
i+=1
z+=1
loop until (i=x and z=y)