Question

УМОЛЯЮ ЛЮДИ !!!!!!!!!!!!!!!!!! Pascal ЯЗЫК

Answer 1

Ответ:

var n1,n2,n3:integer;

begin

readln(n1,n2,n3);

if abs(n1-n2)=4 and abs(n2-n3)=4 then writeln('Выигрыш по диагонали');

if abs(n1-n2)=3 and abs(n2-n3)=3 then writeln('Выигрыш по вертикали');

if abs(n1-n2)=1 and abs(n2-n3)=1 then writeln('Выигрыш по горизонтали');

                                                     else writeln('Выигрыша нет');

end;

Объяснение: