Даны 2 числа меньшее из них заменить полусуммой,а большее число заменить их удвоенным произведением
Даны 2 числа меньшее из них заменить полусуммой,а большее число заменить их удвоенным произведением
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
Uses CRT;
Var a,b: integer;
begin
Writeln('Vvedite chisla');
Readln(a,b);
If a>b then writeln(2*a*b,' ',a+b/2:2:2)
else if a=b then writeln('ravny!')
else writeln(a+b/2:2:2,' ',2*a*b);
readln
end.
Не нашли ответ?
Похожие вопросы