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

Question

Информатика

Аксюня

14 февраля, 12:40

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

+5

Ответы (1)

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

Минюша · Answer 1

var

a, b : integer;

begin

writeln ('введите 1 число ') ;

readln (a) ;

writeln ('введите 2 число') ;

readln (b) ;

if a>b then

begin

y:=a+1;

writeln ('1 число больше', y)

else

begin

y:=b+1;

writeln (' 2 число больше ', y) ;

end;

end;

end.