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

Question

Сергиян

17 ноября, 20:12

+2

Ответы (1)

Знаете ответ на вопрос?

Лексаша · Answer 1

var a, b, max, min:integer;

begin

read (a, b) ;

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

if (a
write (max*2) ;

write (min/2) ;

end.