Вывести на экран значения корней и квадратов для каждого элемента массива

@RomanStep · Регистрация: 26.05.2015

Дан массив, который состоит из 5 целых чисел. Вывести на экран значения корней и квадратов для каждого элемента массива.

@Joy · 27.05.2015, 06:02

Pascal

const
  n=5;
var
  a:array[1..n] of integer;
  i:integer;
begin
  write('BBeguTe MaccuB:');
  for i:=1 to n do read(a[i]);
  writeln('No':4,'A':10,'sqrt(A)':10,'A*A':10);
  for i:=1 to n do begin
    write(i:4,a[i]:10);
    if a[i]<0 then writeln('undefined':10,a[i]*a[i]:10)
    else writeln(sqrt(a[i]):10:6,a[i]*a[i]:10);
  end;
  readln;
end.

@ZX Spectrum-128 · 27.05.2015, 18:01

Pascal

{Дан массив, который состоит из 5 целых чисел. Вывести на экран значения
корней и квадратов для каждого элемента массива.}
var
  a:array [1..5] of integer;
  i:integer;
begin
  randomize; 
  for i:=1 to 5 do
    begin
      a[i]:=random(100)+1;
      writeln(a[i]:8,sqrt(a[i]):8:2,sqr(a[i]):8);
    end;
  readln;
end.

@RomanStep · 27.05.2015, 18:03 **[ТС]**

Спасибо большое.

@RomanStep 0 / 0 / 0 Регистрация: 26.05.2015 Сообщений: 7
		1
	Вывести на экран значения корней и квадратов для каждого элемента массива 26.05.2015, 22:34. Просмотров 2319. Ответов 3 Метки нет (Все метки) Дан массив, который состоит из 5 целых чисел. Вывести на экран значения корней и квадратов для каждого элемента массива. 0

@RomanStep 0 / 0 / 0 Регистрация: 26.05.2015 Сообщений: 7
	27.05.2015, 18:03 [ТС]	4
	Спасибо большое. 0

Опции темы

Вывести на экран значения корней и квадратов для каждого элемента массива

Решение