Написать программу в Паскале. Даны два числа. Меньшее из них замените полусуммой этих чисел, а большее - их произведением. Составить блок-схему.

Question

Информатика

Моря

3 апреля, 22:43

Написать программу в Паскале. Даны два числа. Меньшее из них замените полусуммой этих чисел, а большее - их произведением. Составить блок-схему.

+3

Ответы (1)

Знаете ответ?

Адолия · Answer 1

Var a, b:integer;

begin

writeln ('a=') ;

readln (a) ;

writeln ('b=') ;

readln (b) ;

if (a>b) then begin

b: = (a+b) / 2;

a:=a*b;

end

else

begin

a: = (a+b) / 2;

b:=a*b;

end;

writeln ('a=', a, ' b=', b) ;

readln;

end.