A, B целое

A=B, y=1

A>B, y=2

A
сделать программу

Question

Информатика

Армений

19 сентября, 04:03

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
сделать программу