Вматрице a(3,7) уничтожить 5-й столбик и распечатать полученную матрицу​

1. program ostatok;

uses crt;

var a,b,ost: real;

begin

write('a= ');

readln(a);

write('b= );

readln(b);

ost: =a mod b;

write('ostatok ot delenia a na b raven ',ost);

readln;

end.

2. program modul;

uses crt;

var a,b,c,d: real;

begin

write('a= ');

readln(a);

write('b= );

readln(b);

c: =a-b;

if c> 0 then

begin

a: =abs(a+b);

b: =abs((a-b)/2);

write('a= ',a,'b= ',b);

end

else

b: =abs(a+b);

a: =abs((b-a)/2);

write('a= ',a,'b= ',b);

end;

readln;

end.

делим число на 2 и выписываем остатки536 = 268·2 +  0268 = 134·2 +  0134 = 67·2 +  067 = 33·2 +  133 = 16·2 +  116 = 8·2 +  08 = 4·2 +  04 = 2·2 +  02 = 1·2 +  0последний множитель перед 2 равный  1  записываем первым.затем записываем найденные остатки в обратном порядке.получаем:   1000011000

^-значок степени

256=2^8=> вес одного сивола=8 бит

32=2^5=> вес одного символа

8: 5=1,6

ответ: в 1,6 раз

есть команда mod, которая возвращает остаток от деления

х mod 2 = 0     - тоесть мы проверяем равен ли остаток 0