Var a,b,c:integer; BEGIN writeln('Введите числа'); readln(a,b,c); If ((a>b) and (b>c)) or ((c>b)and(b>a)) then writeln('число по середине b=',b); if ((a>c) and (c>b)) or ((c>a)and(b>c)) then writeln('число по середине c=',c); if ((b>a) and (a>c)) or ((a>b)and(c>a)) then writeln('число по середине a=',a); readln; END.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
