Даны действительные числа х и у не равные друг другу. Меньшее из этих двух чисел
заменить половиной их суммы, а большее их удвоенным произведением.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Арагил
var x, y, x1, y1: real;
begin
writeln('Введите первое дробное число');
readln(x);
writeln('Введите второе дробное число');
readln(y);
x1 := x;
y1 := y;
if x = y then writeln('Числа равны, противоречие условию!') else begin
if (x > y) then begin
y := (x1 + y1) / 2;
x := (x1 * y1) * 2;
end else
begin
x := (x1 + y1) / 2;
y := (x1 * y1) * 2;
end;
end;
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
