Question

S=sqrt4 * sqrt8 * sqrt12 * sqrt16.........sqrt48
sqrtx = sqrt(x). Пожалуйста помогите решить задачу по информатике с помощью оператора While!!! Очень прошу.

Answer 1

Program prog;
var s,i:real;

begin
s:=1;
while(i<48) do
begin
i:=i+4;
s:=s*sqrt(i);
end;
writeln('S = ',s:0:3);
end.

Answer 2

Запустите в системе Free pascal - будете сильно удивлены результату. Откуда в людях это пренебрежение к начальной инициализации переменных?