Задача: Дана площадь круга. Определить длину окружности.

Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу. Для необходимых вычислений в Паскале есть значение числа π обозначенное как pi.

Program test3;

Var R : real; // радиус

S : real; // площадь круга

S : real; // площадь круга

Begin

Readln (...);

... := ... (S / pi);

... := 2... pi ...;

Writeln (‘ответ: ’, ...);

End.

Program test3;

Var R : real; // радиус

S : real; // площадь круга

L : real; // длина окружности

Begin

Readln (S);

R:= sqrt(S / pi);

L:= 2*pi*R;

Writeln ('ответ: ',L );

End.

Объяснение:

Program test3;

Var R: real; // радиус

S : real; // площадь круга

L : real; // дляна окружности

Begin

Readln (S);

R:=sqrt(S / pi)

L:=2*pi*R;

Wrinteln ('ответ: ',L);

End

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

read(n);

s = str(n);

n1 : = int(s[1]);

n2 : = int(s[2]);

n3 : = int(s[3]);

if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")