Question

Напишите на языке Паскаль программу вычисления по формуле: где a,b - целые числа. ДАЮ 100 БАЛЛОВ, ПОМОГИТЕ ПОЖАЛУЙСТА.

Answer 1

~PascalABC.NET

begin

 var a := ReadInteger2('Введите a и b:');

 write('y = ', (a[0] + a[1])*(a[0] + a[1]) / (2*a[0]));

end.

Answer 2

program formula;

var

a,b:integer;

y:real;

begin

write('Введите а》');

read(a);

write('Введите b》');

read(b);

y:=sqr(a+b)/(2*a);

write('y=',y);

readln;

end.

Answer 3

Конечно, я помогу вам написать программу на языке Паскаль для вычисления значения по формуле с целыми числами a и b. Вот пример программы:

pascalCopy code
program FormulaCalculation;
var
  a, b, result: Integer;
begin
  { Ввод значений a и b }
  writeln('Введите значение a:');
  readln(a);
  writeln('Введите значение b:');
  readln(b);

  { Вычисление значения по формуле }
  result := (a * a + 2 * a * b + b * b) mod (a + b);

  { Вывод результата }
  writeln('Результат вычислений: ', result);

  { Ожидание нажатия клавиши перед завершением программы }
  readln;
end.

Вы можете скопировать этот код и вставить его в среду разработки, поддерживающую язык Паскаль, например, Lazarus или Dev-Pascal. Программа запросит у вас значения для переменных a и b, а затем вычислит результат по указанной формуле и выведет его на экран.

Удачи в вашем программировании! Если у вас возникнут еще вопросы, не стесняйтесь задавать.