procedure min(a,b,c: integer); var min: integer; begin min:=a; if b < min then min:=b; if c < min then min:=c; writeln(min); end;
begin readln(a,b,c); min(a,b,c); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
