Дано 5 чисел найти квадратные корни из этих чисел - Turbo Pascal

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

Дано 5 чисел найти квадратные корни из этих чисел (числа вводить самой, сделать задачу 4 способами,одним через if вторым через while 3им через for to do и 4ым через repeat)

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

textual
const
  n = 5;
var
  a : array[1..n] of integer;
  i : integer;  
begin
  for i := 1 to n do
  begin
    write('введите ', i, ' число: ');
    readln(a[i])
  end;
  for i := 1 to n do
    write(sqrt(a[i]):6:2);
  readln
end.

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


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