Question

Напишите пример разветвляющего алгоритма.

Answer 1

if (x>2) Then

x:=x+2

Else

x-2

Answer 2

var a,b:integer;

begin

writeln ('Введите два числа:');

read (a,b);

if a > b then begin

writeln ('Максимальное число: ',a);

end

else begin

writeln ('Максимальное число: ',b);

end;

end.