Составить программу на языке Паскаль следующую задачу: С клавиатуры вводятся два неравных числа. Составить программу, в результате работы которой меньшее число будет удвоено, а другое уменьшено втрое.
program DoubleAndReduce; var num1, num2, min, max: Integer; begin writeln('Enter the first number: '); readln(num1); writeln('Enter the second number (must be different from the first): '); readln(num2); // Find the smaller number if num1 < num2 then begin min := num1; max := num2; end else begin min := num2; max := num1; end; writeln('Before: ', min, ' ', max); // Calculate new values min := min * 2; max := max div 3; writeln('After: ', min, ' ', max); end.
var
num1, num2, min, max: Integer;
begin
writeln('Enter the first number: ');
readln(num1);
writeln('Enter the second number (must be different from the first): ');
readln(num2);
// Find the smaller number
if num1 < num2 then
begin
min := num1;
max := num2;
end
else
begin
min := num2;
max := num1;
end;
writeln('Before: ', min, ' ', max);
// Calculate new values
min := min * 2;
max := max div 3;
writeln('After: ', min, ' ', max);
end.