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

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

Программа на Pascal для выполнения задачи:program ConditionalOperator;
var
a, b, c, d: real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if a < b then
begin
c := (a + b) / 2;
d := a * b;
writeln('Меньшее число: ', c:0:2);
writeln('Большее число: ', d:0:2);
end
else
begin
c := (a + b) / 2;
d := a * b;
writeln('Меньшее число: ', d:0:2);
writeln('Большее число: ', c:0:2);
end;
end.Программа на Pascal для выполнения задачи:program EquationSolution;
var
a, b, x: real;
begin
write('Введите значение a: ');
readln(a);
write('Введите значение b: ');
readln(b);
if a = 0 then
begin
writeln('Уравнение имеет бесконечное количество решений');
end
else
begin
x := -b / a;
writeln('Решение уравнения: ', x:0:2);
end;
end.Программа на Pascal для выполнения задачи:program DoubleNumber;
var
a, b: real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if a < b then
begin
a := a * 2;
writeln('Двойное значение меньшего числа: ', a:0:2);
writeln('Значение второго числа: ', b:0:2);
end
else
begin
b := b * 2;
writeln('Значение первого числа: ', a:0:2);
writeln('Двойное значение меньшего числа: ', b:0:2);
end;
end.