Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted by sklins ( 16 years ago )
PROGRAM MASSIV;
CONST
A=27.8;
B=4.24;
VAR
X: ARRAY [1..5] OF REAL;
Y : REAL;
I : INTEGER;
BEGIN
FOR I:=1 TO 5 DO
BEGIN
WRITE('vvedite znachenie X[',I,'], ');
READLN(X[I]);
END;
Y :=0;
FOR I:=1 TO 5 DO Y:= X[I]/(EXP(X[I])+2)+SQRT(2*X[I]+A);
Y:=Y+B;
WRITELN('Y=',Y:5:5);
END.
Revise this Paste
Parent: 17854