1
2
3
4
5
6
umn_matrix<span>(</span><span>[</span><span>]</span><span>,</span>_<span>,</span><span>[</span><span>]</span><span>)</span><span>.</span>
umn_matrix<span>(</span><span>[</span>Stroka<span>|</span>Tail<span>]</span><span>,</span>Vector<span>,</span><span>[</span>A<span>|</span>ATail<span>]</span><span>)</span><span>:-</span>umn_stroka<span>(</span>Stroka<span>,</span>Vector<span>,</span>A<span>)</span><span>,</span> umn_matrix<span>(</span>Tail<span>,</span>Vector<span>,</span>ATail<span>)</span><span>.</span>
umn_stroka<span>(</span><span>[</span><span>]</span><span>,</span>_<span>,</span><span>0</span><span>)</span><span>.</span>
umn_stroka<span>(</span><span>[</span>E1<span>|</span>Tail<span>]</span><span>,</span><span>[</span>E2<span>|</span>Tail2<span>]</span><span>,</span>Ans<span>)</span><span>:-</span>umn_stroka<span>(</span>Tail<span>,</span>Tail2<span>,</span>TempAns<span>)</span><span>,</span> Ans <span>is</span> TempAns<span>+</span>E1<span>*</span>E2<span>.</span>
Var
a, h:integer;
Begin
write('Основание параллелограмма: ');
readln(a);
write('Высота параллелограмма: ');
readln(h);
writeln('Площадь параллелограмма: ', a*h);
end.
01010101₂ = 0+2⁶+0+2⁴+0+2²+0+2⁰ = 64+16+4+1 = 85₁₀
11111000₂ = -(1111000₂) = -(2⁶+2⁵+2⁴+2³+0+0+0) = -(64+32+16+8) = -120₁₀
1)Через сеть интернет либо съемные носители 2)Размножался в системе, выполнял нагрузку на цп до 100% 3)Удалил с помощью антивирусной программы 4)нужно ставить защиту на браузер и перед работы со съемным носителем проверять его на вирусы