A, B целое

A=B, y=1

A>B, y=2

A

Question

Информатика

Арсюта

10 мая, 09:45

A, B целое

A=B, y=1

A>B, y=2

A

+1

Ответы (1)

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

Коляня · Answer 1

Var a, b, y:integer;

begin

writeln ('Введите 2 числа a и b') ; readln (a, b) ;

if a=b

then y:=1

else if a>b

then y:=2

else y:=3;

writeln ('y = ', y) ;

end.

A, B целоеA=B, y=1A>B, y=2A

A, B целое

A=B, y=1

A>B, y=2

A