Question

из 2 чисел, максимальное увеличить в 2 раза, а минимальное уменьшить в 2 раза. нарисовать блок-схему

Answer 1

var a,b,max,min:integer;

begin

read(a,b);

if (a>b) then max:=a; else max:=b;

if (a<b) then min:=a; else min:=a;

write(max*2);

write(min/2);

end.