По первой нет, вроде сделал, работает. А вот с 3-ей что-то припарился как вставить проихведение при таком коде:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows;
var i, n: integer;
a, midgeom: real;
Begin
Setconsoleoutputcp(1251);
Setconsolecp(1251);
Write('Введите количество чисел ');
Readln(n);
Writeln('Введите 1-е число');
Readln(a);
For i:=2 To n Do
Begin
Writeln('Введите ',i,'-е число');
Readln(a);
End;
midgeom:=exp(ln(n)*(1/(...)));
writeln('midgeom=',midgeom:5:3);
Readln
End.
|