составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел,а большее из двух данных чисел-на произведение этих
5-9 класс
|
чисел.помогите пожалуйста,очень надо!
var x,y,k:real;
begin
readln(x,y);
if x>y then begin k:=y; y:=(y+x)/2; x:=x*k end
else begin k:=x; x:=(x+y)/2; y:=y*k; end;
writeln(x,y,);
end.
var
a, b, c: real; {a и b - вводимые с клавиатуры числа, c - буферная переменная, которая будет содержать значение переменной a}
begin
writeln('Введите 2 числа');
readln(a, b); //Вводим числа
c:= a;
if a < b then {Если a < b, то заменяем а на среднее арифметическое этих чисел, b - на произведение этих чисел и распечатываем их}
begin
a:= (a + b) / 2;
b:= c * b;
writeln('a < b => a = ', a, ', b = ', b);
end;
if b < a then {Если b < a, то заменяем а на произведение чисел, b - на среднее арифметическое чисел}
begin
a:= a * b;
b:= (c + b) / 2;
writeln('b < a => a = ', a, ', b = ', b);
end;
if a = b then writeln('Числа равны'); {Числа числа равны, то печатаем сообщение об этом}
end.
Если все правильно, отметь решение как лучшее)
Другие вопросы из категории
Читайте также
геометрическую этих чисел help me!!!please
2.Составьте программу, определяющую, является ли данное число делителем числа 3.
Заранее спасибо.
результаты.:
· Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел.
· Если произведение этих чисел больше их суммы, то выведите эти сумму и произведение.
· Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму
· Иначе, выведите удвоенные значения этих чисел