А8=7*1000000+2*100000+5*10000+1*100+3+1*0,1+2*0,01
3F в шестнадцатеричной = 3×16+15=63 в десятичной
Const
C = -5;
M = 10;
Step = 1.5;
Var x : Real;
Begin
x:=C;
Repeat
Write('x = ',x:6:2,' L = ');
If x>5 then Writeln((x+x*x+x*x*x)/10:6:2) else
If x<-1 then Writeln(sqr(sin(x))+abs(x):6:2) else
Writeln(100:6);
x:=x+Step;
Until x>M;
end.
Вот. Умножение без помощи операции умножения. Делай лучшим)
program pr;
var i,a,b:integer;p:real;
begin
write('Первый множитель: ');
readln(a);
write('Второй множитель: ');
readln(b);
if b<0 then begin
b:=-b;
for i:=1 to b do begin
p:=p+a;
end;
writeln(-p:0:2);
end
else begin
for i:=1 to b do p:=p+a;
writeln(p:0:2)
end;
end.
Панорамная съемка ( сама инфознайку решаю )