vladikk141
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору program b1; var p,g,r:Integer; Function eg2(a,b,c:Integer):Boolean; var ans:boolean; begin ans:=false; if a=b then ans:=true; if a=c then ans:=true; if b=c then ans:=true; eg2:=ans end; Begin p:=4; g:=5; r:=7; if eg2(p,g,r)then writeln(p,'',g,'',r,'дают true') else writeln(p,'',g,'',r,'дают false'); write(p+3,g-1,r); if eg2(p+3,g-1,r) then writeln('дают true') Else Writeln('дают false'); write(p,'',4,'',g-1); writeln('дают',eg2(p,4,g-1)) end. помогите прошу очень срочно надо |