2. Запишите на языке Паскаль математические выражения 3. a) a2+b2 b ) ab+bc c) a+ b -245 (a+b)2 c 4....

Конечно, давайте рассмотрим каждую из задач по отдельности и запишем решения на языке программирования Паскаль.

2. Запишите на языке Паскаль математические выражения

a) a^2 + b^2

var
  a, b, result: real;
begin
  a := 5;  { пример значения }
  b := 3;  { пример значения }
  result := sqr(a) + sqr(b);
  writeln('Результат a^2 + b^2: ', result:0:2);
end.

b) ab + bc

var
  a, b, c, result: real;
begin
  a := 5;  { пример значения }
  b := 3;  { пример значения }
  c := 2;  { пример значения }
  result := a*b + b*c;
  writeln('Результат ab + bc: ', result:0:2);
end.

c) (a + b - 245) / (a + b)^2 * c

var
  a, b, c, result: real;
begin
  a := 5;  { пример значения }
  b := 3;  { пример значения }
  c := 2;  { пример значения }
  result := (a + b - 245) / sqr(a + b) * c;
  writeln('Результат (a + b - 245) / (a + b)^2 * c: ', result:0:2);
end.

4. Найти среднее арифметическое четырех чисел

var
  num1, num2, num3, num4, average: real;
begin
  num1 := 5;  { пример значения }
  num2 := 3;  { пример значения }
  num3 := 8;  { пример значения }
  num4 := 2;  { пример значения }
  average := (num1 + num2 + num3 + num4) / 4;
  writeln('Среднее арифметическое четырех чисел: ', average:0:2);
end.

5. Дана сторона квадрата, найти его периметр

var
  side, perimeter: real;
begin
  side := 5;  { пример значения }
  perimeter := 4 * side;
  writeln('Периметр квадрата: ', perimeter:0:2);
end.

6. Даны стороны прямоугольника, найти его площадь и периметр

var
  length, width, area, perimeter: real;
begin
  length := 5;  { пример значения }
  width := 3;   { пример значения }
  area := length * width;
  perimeter := 2 * (length + width);
  writeln('Площадь прямоугольника: ', area:0:2);
  writeln('Периметр прямоугольника: ', perimeter:0:2);
end.

7. Даны два числа, найти их сумму, разность, произведение, а также частное от деления первого на второе

var
  num1, num2, sum, diff, product, quotient: real;
begin
  num1 := 10;  { пример значения }
  num2 := 2;   { пример значения }
  sum := num1 + num2;
  diff := num1 - num2;
  product := num1 * num2;
  quotient := num1 / num2;
  writeln('Сумма: ', sum:0:2);
  writeln('Разность: ', diff:0:2);
  writeln('Произведение: ', product:0:2);
  writeln('Частное: ', quotient:0:2);
end.

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

1. a) a2 + b2 b) ab + bc c) a + b - 245 (d) (a + b)2

2. Среднее арифметическое четырех чисел - (a + b + c + d) / 4
3. Периметр квадрата - 4 * сторона
4. Площадь прямоугольника - длина ширина, периметр - 2 (длина + ширина)
5. Сумма - a + b, разность - a - b, произведение - a * b, частное - a / b

1. Примеры записи на языке Паскаль: a) a2+b2 var a, b, result: integer; begin a := 3; b := 4; result := sqr(a) + sqr(b); writeln(result); end.

b) ab+bc var a, b, c, result: integer; begin a := 2; b := 3; c := 4; result := ab + bc; writeln(result); end.

c) a+ b -245 (a+b)2 c var a, b, c, result: integer; begin a := 5; b := 3; c := 2; result := a + b - 245 + sqr(a+b) * c; writeln(result); end.

1. Найдем среднее арифметическое четырех чисел: var a, b, c, d, average: real; begin a := 5; b := 7; c := 9; d := 11; average := (a + b + c + d) / 4; writeln(average); end.

2. Дана сторона квадрата, найдем его периметр: var side, perimeter: integer; begin side := 4; perimeter := 4 * side; writeln(perimeter); end.

3. Даны стороны прямоугольника, найдем его площадь и периметр: var length, width, area, perimeter: integer; begin length := 5; width := 3; area := length width; perimeter := 2 (length + width); writeln('Area: ', area); writeln('Perimeter: ', perimeter); end.

4. Даны два числа, найдем их сумму, разность, произведение и частное: var a, b, sum, difference, product, quotient: real; begin a := 10; b := 5; sum := a + b; difference := a - b; product := a * b; quotient := a / b; writeln('Sum: ', sum); writeln('Difference: ', difference); writeln('Product: ', product); writeln('Quotient: ', quotient); end.