Question

Даны два вещественных числа a и b, если сумма этих чисел больше 35, то увеличить их в 4 раза иначе уменьшить в 2 раза. Программа паскаль

Answer 1

program vld;

var

a,b : real;

begin

writeln('Введите 2 числа: ');

readln(a,b);

if a+b >35 then

 begin

 a := a *4;

 b := b * 4

 end

else

 begin

 a := a / 2;

b := b / 2;

end;

writeln(a);

writeln(b);

end.

Answer 2

begin

 var (a, b) := ReadReal2;

 if a + b > 35 then

   (a, b) := (a * 4, b * 4)

 else

   (a, b) := (a / 2, b / 2);

 Print(a, b)

end.

Язык - PascalABC.NET

Answer 3

Конечно, вот пример программы на языке Pascal, который выполняет описанные вами действия:

pascalCopy code
program CalculateNumbers;

var
  a, b: Real;

begin
  writeln('Введите значение a: ');
  readln(a);

  writeln('Введите значение b: ');
  readln(b);

  if (a + b) > 35 then
  begin
    a := a * 4;
    b := b * 4;
  end
  else
  begin
    a := a / 2;
    b := b / 2;
  end;

  writeln('Результат:');
  writeln('a = ', a);
  writeln('b = ', b);

  readln;
end.

Программа начинается с ввода двух вещественных чисел a и b. Затем она проверяет условие: если сумма a и b больше 35, то числа увеличиваются в 4 раза, иначе уменьшаются в 2 раза. В конце программа выводит результаты изменений a и b.

Учтите, что код должен быть введен в среду программирования Pascal (например, Free Pascal) для выполнения и проверки.