Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

A,B целое
A=B, y=1
A>B,y=2
A сделать программу

Ответ оставил Гость

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.