Текст программы паскаль. необходимо внести коррективы в текст программы. какие? program pr12_nv; uses crt; var y, a: real; i: byte; begin write(‘ a = ’); readln(a); y: =0; for i: = 1 to 10 do begin y: = y+ i*ln(a); i: = i – 1; end; writeln(‘ y = ‘, y: 12: 6); end.
USES CRT;
VAR Y, A: REAL;
I: BYTE;
BEGIN
WRITE(' a = ');
READLN(A);
Y:=0;
FOR I:= 1 TO 10 DO
BEGIN
Y:= Y+ I*LN(A);
END;
WRITELN(' Y = ', Y:12:6);
END.