даны 2 действительных числа.Меньше из них заменить полусуммой этих чисел,а большее-произведением этих чисел. прошу написать на русском языке
5-9 класс
|
извини, но из языков программирования которые пишут на русском знаю только 1С и это как по мне издевательство
пишу на старом добром паскале
var a,b,min,max:real;
read(a,b);
if (a <b) then begin
min:=a;
max:=b;
a:= (min+max)/2;
b:=min*max;
end
else begin
min:=b;
max:=a;
b:= (min+max)/2;
a:=min*max;
end;
writeln(a,b);
End.
Другие вопросы из категории
Читайте также
1.Даны два действительных числа меньшее из них замените полусуммой их, а большее их произведением.
2.Найдите решение уравнения ах+ в=0, если оно существует,если а=0
3.написать программу удвоения меньшего из двух чисел
1)Дано целое число ,если оно не четное ,то увеличить его на 3,иначе увеличить его в 5 раз.
2)Даны 2 числа вещественного типа не равные друг другу.Меньшее из них заменить половиной их суммы ,а большее - их удвоенным произведением.
3)Даны 2 числа k и m.Если первое число отрицательно ,то его значение заменить его модулем;иначе второе число заменить единицей .Результат (оба числа) вывести на экран.