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.
помогите прошу очень срочно надо |
