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

Question

Информатика

Костя

16 ноября, 10:00

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

+2

Ответы (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.