Что будет выведено в результате работы след программы? var a,b,c,d,e: integer;
...
a:=1; b:=2; c:=3;
d:=4; e:=5;
writeln(a:4);
writeln(b:3,b:2);
writeln(c:2,c:4);
writeln(d,d,d,d,d,d,d);
write(e:4);

Что-то такое

Объяснение:

      1

  2      2  

3         3

4444444

      5

PROGRAM PR29;

VAR

X,Y,E,A,B,C:REAL;

I:INTEGER;

BEGIN

WRITE('X,E');

READLN(X,E);

WRITE('A');

READLN(A);

WRITE('B');

READLN(B);

WRITE('C');

READLN(C);

Y:=1;

I:=1;

WHILE I<=2 DO

BEGIN

WHILE ABS(Y)>= E DO

BEGIN

X:=X+E/2;

Y:=A*X*X+B*X+C;

END;

WRITELN('Y = ',Y:8:7,' X',I:2,' = ',X:5:4);

I:=I+1;

X:=X+E/2;

Y:=A*X*X+B*X+C;

END;

END.

Объяснение:

а там я уже не знаю