Если правильно понял, то:
var a, b: integer;
begin
readln(a, b);
writeln(b, a);
end.
Program QuadraticEquation;
Var a, b, c, d, x1, x2:real;
Begin
Writeln('vvedite a, b, c');
Readln(a,b,c);
If A=0 then
Writeln('algoritm ne primenim');
D:=b*b-4*a*c;
If D<0 then
Writeln('deystvit resheniy net');
If D=0 then
Begin
x1:=-b/(2*a);
Writeln('x1=',x1);
End
Else
Begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
Writeln('x1=',x1, 'x2=', x2);
End;
end.
Держи!)
28,97(10)=33,76(8)=11011,111010(2)
Обратно в 10сс 33,76=3*8+3+7*1/8+6*1/64=28,97
Var
i: integer;
p: int64; {В 4-байтовый integer не влезет}
begin
p := 1;
for i := 5 to 15 do p := p * i;
writeln(p);
end.
<span>Результат:
54486432000
</span>