Журналист
Альфред 3 ноября 2019 в 10:01

Ввести два числа a и b . Меньшее заменить полусуммой, а большее
удвоенным произведением. (паскаль)

Program prog;
uses crt;

var a,b,t: real;

begin
clrscr;

write(a = );
readln(a);
write(b = );
readln(b);
if (agt;b) then
   begin
   t:=a;
   a:=2*a*b;
   b:=(t+b)/2;
   end;
if (alt;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.
Var a, b, c: real;
readln(a);
readln(b);
c := 0;
if a gt; b then
begin
c := a;
a := 2*a*b;
b := (c + b) / 2;
end
else
if a lt; b then
begin
c := a;
a := (a + b) / 2;
b := 2* a*b;
end
else
writeln(Числа равны);
writeln( a = , a, b = , b);

кажется так
но чето могу напутать, не сидел с паскалем года 3
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте