Дана процедура:
procedure nod (a, b: integer; var c: integer);
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
c:=a
end;
Чему равно значение с после вызова процедуры nod (120, 72, c)?

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

 

вот конвертер:

наверняка двоичные числа надо только определить где ноль а где один

наверно о - one

10101

10110

10111

11000

11001

вроде как сходится, продолжаем

11010

11011

11100

11101

11110

11111

обратную замену самостоятельно

var

a: integer;

begin

readln(a);

writeln(a*(a div 10 + (a mod 10)*10));

end.

1) общее кол-во пикселей: 1024 * 768 = 786432 2) объем/вес одной картинки: 786432 * 16 = 12582912 бит 3) кол-во переданной информации за 1 секунду: 12582912 * 75 = 943718400 бит/с  = 12582912 / 8 / 1024 / 1024 мбайт/с = 112.5 мбайт/с