Question

Составить программу на языке Паскаль следующую задачу: С клавиатуры вводятся два неравных числа. Составить программу, в результате работы которой меньшее число будет удвоено, а другое уменьшено втрое.

Answer 1

Без 20 символов скрин кинуть нельзя...

Answer 2

Для решения данной задачи на языке Паскаль, следует выполнить следующую программу:

pascalCopy code
program DoubleAndTriple;

var
  num1, num2, smaller, larger: Integer;

begin
  // Ввод чисел с клавиатуры
  Write('Введите первое число: ');
  Readln(num1);

  Write('Введите второе число: ');
  Readln(num2);

  // Определение меньшего и большего чисел
  if num1 < num2 then
  begin
    smaller := num1;
    larger := num2;
  end
  else
  begin
    smaller := num2;
    larger := num1;
  end;

  // Удвоение меньшего числа и уменьшение большего числа втрое
  smaller := 2 * smaller;
  larger := larger div 3;

  // Вывод результатов
  Writeln('Меньшее число удвоено: ', smaller);
  Writeln('Большее число уменьшено втрое: ', larger);

end.

Программа запрашивает у пользователя два числа, определяет меньшее и большее число, а затем удваивает меньшее число и уменьшает большее втрое. Результаты выводятся на экран.