149(10)=10010101(2)
Если не задана разрядность, будем обходиться минимально необходимым количеством разрядов.
Тогда переводим в дополнительный код:
1 01101011
Если нужно дотянуть до 2х байт, то:
11111111 01101011
Лена Таня Маша
борщ - - +
пирожное + - -
салат - + -
Таня заказала салат. Чё тут решать то! двоечница!!!!!
Function Fx(x:real):real;
begin
if x=1 then Fx:=1e18 { вместо бесконечности }
else if x<0 then Fx:=exp(-x)
else if x<=4.5 then Fx:=1-ln(abs(1-x*x))
else Fx:=2*x
end;
procedure Px(x:real; var y:real);
begin
if x=1 then y:=1e18 { вместо бесконечности }
else if x<0 then y:=exp(-x)
else if x<=4.5 then y:=1-ln(abs(1-x*x))
else y:=2*x
end;
var
x,y:real;
i:integer;
begin
for i:=-4 to 9 do
begin
x:=i;
Px(x,y);
Writeln(x:2,Fx(x):25:3,y:25:3)
end
end.
Program;
var a,sum,k:integer;
sr:real;
Begin
sum:=0;
k:=0;
while a<>0 do
begin
read(a);
sum:=sum+a;
k:=k+1;
end;
sr:=sum/k;
writeln(sr);
End.
var i: integer; begin for i:= 1 to 30 do writeln(i);end.
Вот код вывода чисел от 1 до 30, либо я не понял вопроса, либо вам дорога не в программирование