Извлеките корень (составить программу ** языке Паскаль)

Question

Извлеките корень (составить программу на языке Паскаль)

Answer 1

Program dfgh;
Var
a:real;
Begin
Write('Введите число: ');
Readln(a);
Writeln(sqrt(a));
End.