ПОСТРОЙТЕ МАТРИЦЫ СМЕЖНОСТИ И ВЕСОВЫЕ МАТРИЦЫ для следующих графов (а-г)

1 байт/с = 23 бит/с = 8 бит/с; 1 кбит/с = 210 бит/с = 1024 бит/с; 1 мбит/с = 210 кбит/с = 1024 кбит/с; 1 гбит/с = 210 мбит/с = 1024 мбит/с.

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.

1. (a+b+c)& (неa& b& неc)= a& неa& b& неc+b& неa& b& неc+c& неa& b& неc=0+неa& b& неc+0=неa& b& неc2. (a+b)& (неb+a)& (неc+b)=(a& неb+a& a+b& неb+b& a)& (неc+b)= (a& неb+a+0+b& a)& (неc+b)= (a& неb+a+b& a)& (неc+b)=a& неb& неc+a& неb& b+a& неc+a& b+b& a& неc+b& a*b= a& неb& неc+0+a& неc+b& a& неc+a& b+a& b=a& неb& неc+a& неc+b& a& неc+a& b=a& неc(b+1)+ a& b& (неc+1)=a& неc+a& b= a& (неc+b)3. (1+(a+b))+((a+c)& 1)=1+((a+c)& 1)= 1+(a& 1+c& 1)= 1+a+c=14. (a& b& неc)+(a& b& c)+не(a+b)= (a& b& неc)+(a& b& c)+неa& неb= (a& b)& (неc+c)+неa& неb=a& b+неa& неb= a~b5. (a+b+c)& не(a+неb+c)= (a+b+c)& неa& b& неc=a& неa& b& неc+b& неa& b& неc+c& неa& b& неc=0+неa& b& неc+0=неa& b& неc

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.