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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник