Всем , нужна с программой в паскале.
1. написать программу вычисления кол-ва цифр и суммы цифр введенных с клавиатуры 5 целых чисел.
2.найти значения функции y=2x^2+x-4 при х , изменяющимся от -5 до 5 с шагом 1. вычисление значений функции оформить в виде функции. результаты представить в виде таблицы.
3. напишите функцию cube ,которая возвращает куб ее числового параметра.
4. вычислить 1! +2! ++n! . вычисление факториала организовать как функцию fact (var r: integer): logint.
5. составьте программу для определения значений n! ,-m)!
буду и признателен

ответ: окей

объяснение:

для квадрата:

procedure tform1.button1click(sender: tobject);

var

a,b,c,d,p,s: real;

begin

a: =2; b: =2; c: =2; d: =2;

if ((a=b)and(c=d)and(a=d))then

begin

p: =(a+b+c+d)/2;

s: =sqrt((p-a)*(p-b)*(p-c)*(p-d));

showmessage('s='+floattostr(s));

end else showmessage('это не квадрат');

end;

для треугольника:

procedure tform1.button1click(sender: tobject);

var

a,b,c,p,s: real;

begin

a: =2; b: =2; c: =3;

if (abs(a-b)

begin

p: =(a+b+c)/2;

s: =sqrt(p*(p-a)*(p-b)*(p-c));

edit1.text: =floattostr(s);

end else showmessage('не треугольник');

end;

ответ:

на форму поставил компонент memo

в edit1 и edit2 вводим значения строк и столбцов

для цикла for i: = for j: =

на кнопке следующий код

объяснение:

procedure tform1.button1click(sender: tobject);

  var i,j: integer; s: string;

begin

  a: = strtoint(edit1.text);

  b: = strtoint(edit2.text);

    for i: = 1 to a do begin

          s: = '';

    for j: = 1 to b do

      s: = s+'   '+inttostr(i*j);

      memo1.lines[i-1]: = s;

    end;

end;