Напишите программы в PASCAL!!! 37. Программа запрашивает два числа и выводит их в порядке возрастания. Затем меньшее число заменяет удвоенным произведением введенных чисел, а большее число полусуммой этих чисел. 38. Составить программу, которая уменьшает первое введенное число в два раза, если оно больше второго введенного числа.
program SortAndModifyNumbers; var num1, num2, minNum, maxNum: Integer; begin writeln('Введите два числа:'); readln(num1); readln(num2); if num1 < num2 then begin minNum := num1; maxNum := num2; end else begin minNum := num2; maxNum := num1; end; writeln('Числа в порядке возрастания: ', minNum, ' ', maxNum); minNum := minNum * (num1 * num2); maxNum := (num1 + num2) div 2; writeln('Модифицированные числа: ', minNum, ' ', maxNum); end.
Программа к задаче 38:
program DecreaseIfBigger; var num1, num2: Integer; begin writeln('Введите два числа:'); readln(num1); readln(num2); if num1 > num2 then begin num1 := num1 div 2; writeln('Первое число уменьшено в два раза: ', num1); end else begin writeln('Первое число не больше второго числа.'); end; end.
Программа к задаче 37:
program SortAndModifyNumbers;var
num1, num2, minNum, maxNum: Integer;
begin
writeln('Введите два числа:');
readln(num1);
readln(num2);
if num1 < num2 then
begin
minNum := num1;
maxNum := num2;
end
else
begin
minNum := num2;
maxNum := num1;
end;
writeln('Числа в порядке возрастания: ', minNum, ' ', maxNum);
minNum := minNum * (num1 * num2);
maxNum := (num1 + num2) div 2;
writeln('Модифицированные числа: ', minNum, ' ', maxNum);
end.
Программа к задаче 38:
program DecreaseIfBigger;var
num1, num2: Integer;
begin
writeln('Введите два числа:');
readln(num1);
readln(num2);
if num1 > num2 then
begin
num1 := num1 div 2;
writeln('Первое число уменьшено в два раза: ', num1);
end
else
begin
writeln('Первое число не больше второго числа.');
end;
end.