<u>Задача №1 (написанная на паскале)</u>
uses crt;
var
a, b, c: real;
begin
readln (a, b, c);
a:= a*a;
b:= b*b;
c:= c*c;
if (a+b=c) or (b+c=a) or (c+a=b)then writeln ('Mozhno') else writeln('oshipka postroenie');
readkey;
end.
<u>Задача №2.(написанная на паскале) </u>
uses crt;
var
a : integer;
begin
readln (a);
if (a mod 13 =0) then writeln ('da') else writeln ('net');
readkey;
end.
Program primer;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
writeln ('vvedite massiv');
for i:=1 to n do
readln( a[i]);
for i:=1 to n do
if (a[i] mod 2=0)>(a[i] mod 2=1) then
writeln ('ceotnih cisel bolise')
else
writeln('neceotnih cisel bolise');
readln;
<span>end.</span>
4-ре бита так как 2 в 4 степени 16 то 16 бит
1) 110100,11₂ = 2⁵+2⁴+2²+1/2+1/4=32+16+4+2/4+1/4=52=52,75
123,41₈=8²+2*8+3+4/8+1/64=64+16+3+33/64=83,515625
1DE,C8₁₆=16²+13*16+14+12/16+8/256=478,78125
2) 1001111110111,0111₂=11767,34₈=5111,7₁₆
1011110011100,11₂= 13634,6₈=179C,C₁₆
<span>3) 1011₂+11₂=1110₂ </span>
1011₂+111,1₂=10010,1₂
11₂+111,1₂= 1010.1₂
1011₂=11
11₂=3
111,1₂=7.5
1110₂=14
10010.1=18.5
1010.1₂=10.5
4) 101₂*1111,001₂= 1001011,101₂
101₂=5
1111,001=15.125
<span>1001011,101₂=75,625</span>