Текст программы паскаль. необходимо внести коррективы в текст программы. Какие? 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); ...
Текст программы паскаль. необходимо внести коррективы в текст программы. Какие?
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.
Гость
Ответ(ы) на вопрос:
Гость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);
END;
WRITELN(' Y = ', Y:12:6);
END.
Не нашли ответ?
Похожие вопросы