Ответ:
var X, Y: Real;
begin
WriteLn("Введите значение аргумента: ");
ReadLn(X);
// так как деление на ноль вызовет ошибку, исключаем это
if (X <> 0) then
begin
Y:=1/X*X+4*X+5;
WriteLn("Y= ", Y);
end;
else
WriteLn("Введен недопустимый аргумент");
end.
Если это Паскаль. то нумерация массива с 1 начинается. Цикл увеличивает все элементы массива на единицу. Следовательно, x[2] вернет 4.
Краткая биография:Лебедев — основоположник вычислительной техники в СССР, директор ИТМиВТ, академик АН СССР (1953) и АН УССР (12.02.1945), Герой Социалистического Труда. Лауреат Сталинской премии третьей степени, Ленинской премии и Государственной премии
8388608/8=1048576 байт,
1048576/1024=1024 килобайта,
1024/1024=1 мегабайт.