Задачи по Паскалю.Условный оператор.1.Даны два действительных числа меньшее из них замените полусуммой их, а большее их произведением.2.Найдите решение уравнения ах+ в=0, если оно существует,если а=03.написать программу удвоения меньшего из двух чисел

Предыдущий
вопрос Следующий
вопрос

Пример решения задачи с использованием условного оператора:program Task1;
var
a, b, min, max: real;
begin
writeln('Введите два числа:');
readln(a, b);
if a < b then
begin
min := (a + b) / 2;
max := a * b;
end
else
begin
min := (a + b) / 2;
max := a * b;
end;
writeln('Меньшее число: ', min:0:2);
writeln('Большее число: ', max:0:2);
end.Пример решения задачи с использованием условного оператора:program Task2;
var
a, b, x: real;
begin
writeln('Введите значения a и b:');
readln(a, b);
if (a = 0) and (b <> 0) then
begin
x := -b;
writeln('Решение уравнения ax + b = 0: x = ', x:0:2);
end
else if (a <> 0) and (b = 0) then
begin
x := -b;
writeln('Решение уравнения ax + b = 0: x = ', x:0:2);
end
else
writeln('Уравнение не имеет решения или имеет бесконечное количество решений.');
end.Пример программы удвоения меньшего из двух чисел:program Task3;
var
a, b, min: real;
begin
writeln('Введите два числа:');
readln(a, b);
if (a < b) then
min := a * 2
else
min := b * 2;
writeln('Меньшее число, удвоенное: ', min:0:2);
end.