Question

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

Answer 1

Var x,y:longint;
begin
readln(x,y);
if (x+y) mod 2=0 then writeln(2*x,' ',2*y)
else
writeln(2*x,' ',y);
readln;
end.

Answer 2

Вот пример программы на языке Паскаль, которая реализует указанные условия:

pascalCopy code
program IncreaseNumbers;
var
  number1, number2, sum: integer;
begin
  writeln('Введите первое число: ');
  readln(number1);

  writeln('Введите второе число: ');
  readln(number2);

  sum := number1 + number2;

  if sum mod 2 = 0 then
  begin
    number1 := number1 * 2;
    number2 := number2 * 2;
  end
  else
  begin
    number1 := number1 * 2;
  end;

  writeln('Результат:');
  writeln('Первое число: ', number1);
  writeln('Второе число: ', number2);

  readln;
end.

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