Var L : Real; Function PerKv(a : Real) : Real; Begin PerKv:=a*4; end; Begin Write('Сторона квадрата: '); Readln(L); Write('Периметр квадрата: ',PerKv(L)); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
