Var x;y:real; Begin Readln(x); y:=((x-2,5)*x-1)*x-1; Writeln(y); End.
Var X1,x2,y1,y2,d:real; Begin Readln(X1,x2,y1,y2); D:=SQRT(SQR(x2-x1) SQR(y2-y1)); Writeln(d); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.