Паскаль.Даны действительные положительные числа x ,y .Меньшее из этих двух чисел заменить их полу суммой, а большее их удвоенным произведением.
10-11 класс
|
Вот так?:
Program solution;
Uses Crt;
Var x, y, t : real;
begin
clrscr;
write('x, y: ');
readln(x, y);
if x > y then
begin
t := y;
y := (x + y) / 2;
x := 2 * x * t;
end
else
begin
t := x;
x := (x + y) / 2;
y := 2 * t * y;
end;
write('x = ', x : 0 : 4, '; y = ', y : 0 : 4);
readkey;
End.
Другие вопросы из категории
1) 0
2) 2
3) 4
4) 8
5) 16
Читайте также
вычислить площадь этого треугольника. Даны два действительных положительных числа х и у. Арифметические действия над числами пронумерованы (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление). Составить программу, которая по выведенному номеру выполняет то или иное действие над числами.
Входные данные: ввести одно целое положительное число a ((1<=a<=1000).
Выходные данные: вывести слово «true» если приведенное высказывание для предложенных исходных данных является истинным или «false» в противном случае.
треугольник, то является ли он равносторонним? 2)Дан одномерный массив. Найти количество смен знака между соседними элементами массива. Программа -Паскаль.
Даны действительные положительные числа x