Question

Помогите с информатикой пожалуйста (Написать короткую програмку в FreePascal) Ввести 2 числа, если сумма четная делить на 2, если нет оставить без изменений. Заранее спасибо)

Answer 1

Var
  x,y:integer;
begin
  writeln('Введите 1-ое число');
  readln(x);
  writeln('Введите 2-ое число');
  readln(y);
  if ((x+y)mod 2)=0 then writeln('Ответ: ',(x+y)/2)
  else writeln('Ответ: ',x+y) 
end.

Answer 2

Конечно, я могу помочь вам с написанием программы на языке FreePascal. Вот короткая программа, которая выполняет следующие действия:

1. Вводит два числа с клавиатуры. 2. Проверяет, является ли сумма этих чисел четной. 3. Если сумма четная, программа делит ее на 2. 4. Если сумма нечетная, программа оставляет ее без изменений. 5. Выводит результат на экран.

program EvenSum;

var
  num1, num2, sum: integer;

begin
  writeln('Введите два числа:');
  readln(num1, num2);

sum := num1 + num2;

if sum mod 2 = 0 then
    sum := sum div 2;

writeln('Результат:');
  writeln(sum);

readln;
end.

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

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.