Question

Составить программу. которая меньше из двух чисел заменяет их полусуммой а большее их произведением. во вложении образец как нужно делать

Answer 1

Блок-схема - в прилагаемом файле.
var a,b,c,d:real;
begin
write('a, b: ');
readln(a,b);
c:=(a+b)/2;
d:=2*a*b;
if a<b
 then begin a:=c; b:=d; end
 else begin a:=d; b:=c; end;
writeln('a = ',a,' b = ',b);
end.

Пример:
a, b: 8 5
a = 80 b = 6.5