1)Запишите на Паскале формулу ( во вложении 2)Дан фрагмент программы на Паскале s:=0; i:=-3;while i<2 do begin
if i<0 then A:=i*i else A:=i;
s:=s+A; i:=i+1
end;
Составьте трассировочную таблицу для данного фрагмента чему будут равны значения переменных S и I После выполнения этой последовательности оператор?

ответ:а) var x,y: real;б) var a,b,s: real;(a,b - стороны прямоугольника, s - площадь прямоугольника)в) var k:integer;ct,co,s: real;(k - количество тетрадей, ct,co - стоимость 1 тетради и 1 обложки (соответственно), s - стоимости покупки)г) var kt,kk,kr:integer;ct,ck,cr,s: real;(kt,kk,kr - количество тетрадей, карандашей и ручек (соответственно), ct,ck,cr - стоимость 1 тетради, 1 карандаша и 1 ручки (соответственно), s - стоимость покупки)Данные вещественного (real) типа используются значительно чаще целого типа. Они необходимы в тех случаях, когда числовые значения могут содержать дробные части.Данные целочисленного (integer) типа используются для представления целых чисел.

Объяснение:

begin

 var (n, m) := ReadInteger2('Количество строк и столбцов в массиве:');

 Writeln('*** Исходный массив ***');

 var r := MatrRandom(n, m, -99, 99);

 r.Println(4);

 Writeln(4 * r.ColCount * '-');

 var c := ReadInteger('Введите значение С:');

 var v := r.ElementsByRow.Where(t -> t < c).ToArray;

 Writeln('*** Полученый вектор ***');

 v.Println;

 var i := v.IndexMax;

 Writeln('Максимальный элемент v[', i + 1, ']=', v[i])

end.