program a;vary:real;i,x,n :integer;beginwriteln ('Введите значение x');readln(x);writeln ('Введите количество повторений подсчета формулы');readln (n); for x:=1 to n dobeginy := Cos(x) - Sin(x);if (y>0) Then Writeln(y);end;end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
