Строки

[Doublefaced]

Stilet

Спасибо огромное!

[Doublefaced]

program Project336;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var A, b, c: String; L, S, d: Integer;
begin
WriteLn('Vvedite Chislo');
ReadLn(A);
L:=Length(A);
S:=Pos('E+', A);
If S<>0 Then
      Begin
      b:=Copy(A, 1, S-1);
      c:=Copy(A, S+2, L-S);
      End;
// теперь в строке "b" часть строки "A" до "E+"
// а в строке "c" часть строки "A" после "E+"
If (Length(c)<>0) And (c[1]<>'0') Then // если после "E+" не пусто и не ноль
      Begin
      S:=Pos('.', b);
      L:=Length(b);
      If S=0 Then // если в строке "b" нет точки
            Begin
            d:=0;
            While c<>'' Do
                  Begin
                  Case c[1] Of
                        '0':
                              d:=d*10;
                        '1':
                              d:=d*10+1;
                        '2':
                              d:=d*10+2;
                        '3':
                              d:=d*10+3;
                        '4':
                              d:=d*10+4;
                        '5':
                              d:=d*10+5;
                        '6':
                              d:=d*10+6;
                        '7':
                              d:=d*10+7;
                        '8':
                              d:=d*10+8;
                        '9':
                              d:=d*10+9;
                        End;
                  c:=Copy(c, 2, Length(c)-1);
                  End;
            A:=b;
            While d<>0 Do
                  Begin
                  A:=A+'0';
                  d:=d-1;
                  End;
            End
      Else  // если в строке "b" есть точка
            Begin
            d:=0;
            While c<>'' Do
                  Begin
                  Case c[1] Of
                        '0':
                              d:=d*10;
                        '1':
                              d:=d*10+1;
                        '2':
                              d:=d*10+2;
                        '3':
                              d:=d*10+3;
                        '4':
                              d:=d*10+4;
                        '5':
                              d:=d*10+5;
                        '6':
                              d:=d*10+6;
                        '7':
                              d:=d*10+7;
                        '8':
                              d:=d*10+8;
                        '9':
                              d:=d*10+9;
                        End;
                  c:=Copy(c, 2, Length(c)-1);
                  End;
            d:=d-L+S;
            A:=Copy(b, 1, S-1)+Copy(b, S+1, L-S);
            While d<>0 Do
                  Begin
                  A:=A+'0';
                  d:=d-1;
                  End;
            End;
      WriteLn(A);
      End
Else
      WriteLn('Error');
readln;
end.

Помогите препод забраковал этот вариант решения! Почему?

[Stilet]

Почему?

А сам препод что обьясняет?

Хотя я бы тоже двойку поставил - уж больно много ненужного тут..