Var a,b,c : Integer; Function Min(aa,bb : Integer) : Integer; Begin If aaend; Begin Write('Введите три числа: '); Readln(a,b,c); Writeln('Минимальное число: ',Min(Min(a,b),c)); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
