A, B целое

A=B, y=1

A>B, y=2

A

Question

Информатика

Таисия

31 октября, 10:52

A, B целое

A=B, y=1

A>B, y=2

A

+2

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