Question

Напишите программу на PascalAbc, в которой вводятся два числа a и b. Затем первое число уменьшается в 2 раза, а второе увеличивается на 30. Выведите измененные значения переменных.

Answer 1

1. program task31154623;
2. var
3.  a, b: real;
4. begin
5.  (a, b) := ReadlnReal2();
6.  (a, b) := (a / 2, b + 30);
7.  Writeln(a, ' ', b);
8. end.

Answer 2

Конечно, вот программа на PascalABC, которая выполняет указанные операции:

pascalCopy code
program ChangeNumbers;

var
  a, b: real;

begin
  writeln('Введите первое число a: ');
  readln(a);
  
  writeln('Введите второе число b: ');
  readln(b);
  
  a := a / 2;
  b := b + 30;
  
  writeln('Измененное значение a: ', a);
  writeln('Измененное значение b: ', b);
  
  readln;
end.

Эта программа позволит вам ввести два числа, затем выполнит указанные операции (первое число уменьшается в 2 раза, а второе увеличивается на 30) и выведет измененные значения переменных a и b.