Вмассив a[n] занесены натуральные числа.

'найти сумму тех элементов, которые кратны данному к.
программу нужно написать для visual basic

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

1) чтобы получить 4 литра нужно из девятилитрового ведра перелить воду в пятилитровое ведро. т.к. в пятилитровое ведро вместится только 5 литров, то в девятилитровом останется 4 литра.

2)  чтобы получить 1 литр нужно из девятилитрового ведра перелить воду в пятилитровое ведро. т.к. в пятилитровое ведро вместится только 5 литров, то в девятилитровом останется 4 литра. теперь нужно из девятилитрового ведра, в котором сейчас 4 литра, перелить воду в трёхлитровое ведро. т. к. в трёхлитровое ведро вместится только 3 литра, то в девятилитровом будет 1литр. в пятилитровом так и останется 5 литров.

A. решение на калькуляторе 1. находим общее количество пикселей n = 1024×768 = 786432 2. находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. определяем объем информации в битах i = n×k = 786432×6 = 4718592 бит 4. переводим в более крупные единицы - в байты: 1 байт=8 бит; 4718592 бит/8 = 589824 байт - в кбайты: 1 кбайт=1024 байта; 589824 байт/1024 = 576 кбайт - в мбайты: 1 мбайт=1024 кбайта;   576 кбайт/1024 = 0.5625 мбайт. б. решение "в степенях двойки" 1. находим общее количество пикселей n = 1024×768 = 2¹⁰×2⁹×1.5 = 2¹⁹×1.5 2. находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. определяем объем информации в битах i = n×k = 2¹⁹×1.5×6 = 2¹⁹×9 бит 4. переводим в более крупные единицы - в байты: 1 байт=2³ бит; 2¹⁹×9 бит/2³ = 2¹⁶×9 байт - в кбайты: 1 кбайт=2¹⁰ байт;   2¹⁶×9 байт/2¹⁰ = 2⁶×9 кбайт = 64×9 = 576 кбайт - в мбайты: 1 мбайт=2¹⁰ кбайт; 2⁶×9 кбайт/2¹⁰ = 2⁻⁴×9 мбайт = 9/16 мбайт = 0.5625 мбайт.