Составить программу, которая вычисляет квадратный корень из любого числа. + описать, что...

Question

Составить программу, которая вычисляет квадратный корень из любого числа.
+ описать, что делает каждая строка программы.

Comments

Язык?

---

Pascal

Answer 1

//PascalABC.Net 3.2
begin
write ('Кв. корень: ', sqrt(readreal('Введите число: '))); {Выводит кв. корень
из неотрицательного цисла :-) }
end.

Comments

Написать "проще"?

---

Напишите:)

---

//Для старых Pascal`ей

---

var
x: real; //переменная, содержащия
//действительное число
begin
read (x); //считываем число
x:=sqrt(x); //присваиваим ему значение
//его корня
write (x); //выводим на экран
end.

Answer 2

Var a,b:real; //Создание переменных а и б
begin //Начало программы
Writeln('Введите число '); //Написание "Введите число"
Read(a); //Считывание числа
b:=sqrt(a);//Нахождение квадратного корня
Writeln('Квадратный корень = ',b);//Написание "Квадратный корень = " и корня числа
End.//Конец программы