Program z2;
var b, t, x, y, z: real;
begin
b:= ...; //задаем b
z:=sqrt(abs(sin(abs(b))));
if(b>1) then t:=b*b
else t:=exp(b);
x:=(b*sqrt(z+1))/(t*z+1);
y:=b*ln(sqrt(x+t)+sqrt(x)) - sqrt(x*x+t*x);
writeln('y = ',y);
end.
Uses crt;
var n,a,k,s:integer;
begin
readln(n);
a:=n;
repeat;
a:=n mod 10;
s:=s+a;
n:=n div 10;
if a>6 then inc(k);
until a=0;
writeln(s);
writeln(k);
end.
Это изображение формата .jpg (фотография или картинка)
Графический файл.
HELP.BELHOST.BY - Благотворительные общества Детство детям и Феникс
страна- Беларусь
145=128+16+1=2^7+2^4+2^0=1001 0001 (2cc)
120=64+32+16+8=2^6+2^5+2^4+2^3= 0111 1000 (2cc)
30=16+8+4+2= 0001 1110 (2cc)
56=32+16+8=2^5+2^4+2^3=0011 1000 (2cc)
ответ: 10010001.01111000.00011110.00111000