Делфи.Разработать проект на основе готовой спецификации, в котором использовать компонент SpinEdit для ввода целых чисел в диапазоне от -100 до +100. В поле Edit2 задать число N. Выдать в компонент Memo те целые числа, квадрат которых не превышает N. Найти первое целое число, квадрат которого больше N. Начальное значение компонента SpinEdit получать из поля Edit1. Установить кнопку «Сброс» для обнуления Memo, начального значения компонента SpinEdit и числа N. В обработчике события кнопки «Нач. значение» выполнить ввод начальных значений компонента SpinEdit. На форме установить компоненты: SpinEdit, StaticText, кнопки Button или SpeedButton, поля Edit, Memo.

var

  a : array [1..9] integer;

  i : integer;

begin

  for i := 1 to 9 do

    if i mod 3 = 1 then a[i] := i

    else if i mod 3 = 2 then a[i] := sqr (i - 1)

    else a[i] := a[i - 1] div i;

  for i := 1 to 9 do

    write (a[i], ' ');

end.

 

var

  b, a : array [1..15] of integer;

  i, sa, sb : integer;

begin

  randomize;

  sa := 0; sb := 0;

  for i := 1 to 15 do

  begin

    a[i] := trunc (random (100)) + 1;

    write (a[i], ' ');

    sa := sa + a[i];

  end;

  writeln;

  for i := 1 to 15 do

  begin

    b[i] := sqr (a[i]) - a[i]);

    write (b[i], ' ');

    sb := sb + b[i];

  end;

  writeln;

  writeln (abs (sb - sa));

end.