Найти квадратные корни из чисел - Turbo Pascal

Формулировка задачи:

дан линейный массив из 5 чисел найти квадратные корни из этих чисел (сделать задачу через for to do числа вводить самой)

Код к задаче: «Найти квадратные корни из чисел - Turbo Pascal»

textual
const
  n = 5;
 
var
  x: array [1..n] of real;
  i: byte;
 
begin
  Writeln('Введите элементы ', n, '(штук): ');
  while i <> n do
  begin
    i := i + 1;
    Readln(x[i]);
    if x[i] >= 0 then
      Writeln('Кв. корень = ', Sqrt(x[i]):0:5)
    else
      Writeln('Кв. корень из отрицательного числа не существует');
  end;
  Readln
end.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ