программа
Даны 2 числа: a и b. Написать программу, выводящую наибольшее из них. Разрешается пользоваться только целочисленными операциями, никаких циклов, ветвлений, функций и т. д. НИКАКОГО if не писать

  • возми за основу это

    var a,b,a1,b1:word;
    begin
    writeln('введите 2 числа');
    readln(a,b);
    a1:=a div b;
    a1:=((a1+2) div (a1+1)) mod 2;
    b1:=(a1+1) mod 2;
    writeln('число ', a*a1+b*b1,' больше или равно ',a*b1+b*a1);
    readln;
    end.

  • "Разрешается пользоваться только целочисленными операциями, никаких циклов, ветвлений, функций и т. д. НИКАКОГО if не писать"

    Разрешаю писать, как тебе угодно! Открыл книжку и читай! А здесь никому указывать не нужно. В таких случаях хотя бы вежливо просят.

  • var a,b:integer; begin readln(a,b); writeln(ord(a>=b)*a+odr(b>a)*b); readln end.