Даны 2 числа меньшее из них заменить полусуммой,а большее число заменить их удвоенным произведением

snaiperkiling snaiperkiling    2   03.08.2019 18:10    0

Ответы
короваточкару короваточкару  08.09.2020 07:17
Program prog;
uses crt;

var a,b,t: real;

begin
clrscr;

write('a = ');
readln(a);
write('b = ');
readln(b);
if (a>b) then
   begin
   t:=a;
   a:=2*a*b;
   b:=(t+b)/2;
   end;
if (a<b) then
   begin
   t:=b;
   b:=2*a*b;
   a:=(t+a)/2;
   end;
if(a=b) then
        writeln('Числа равны')
        else
        writeln('a = ', a, ', b = ', b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика