Написать программу в паскале , которая вычесляет y=2x+3x2+4x3++10x11

Sub iter()       dim s as double, pi as double, e as double, a as double       dim i as long, znak as integer, k as long       e = inputbox("введите значение eps")       pi = 4 * atn(1)       s = pi       i = 2       znak = 1       k = 0       a = tan(pi / (2 * i))       do while a > = e               s = s + znak * a               i = i + 1               a = tan(pi / (2 * i))               znak = -znak               k = k + 1       loop       msgbox "сумма равна " + str(s) + ", количество слагаемых " + str(k) end sub

«Электрический карандаш» (Electric Pencil)

Объяснение:

Вначале 1975 г. кинорежиссер из Нью-Йорка Майкл Шрейер (Michael Shrayer), отправившийся в Калифорнию в поисках удачи, стал одним из обладателей набора для конструирования компьютера «Альтаир». Вскоре он усовершенствовал свою машину, подключив к ней клавиатуру и телевизор, выполнявший роль дисплея, и стал продавать небольшие программы. По мере того как программы становились все более сложными, усложнялись и руководства по их использованию.

И однажды Шрейера осенило, что было бы гораздо удобнее подготавливать эти руководства с «Альтаира», а не печать на машинке. Позднее, мотивируя свое решение, Шрейер говорил: «Делать веши более простыми для меня всегда было своего рода игрой». Он трудился над своей программой по 16-20 ч в сутки на протяжении года. Закончив работу, он пустил программу в продажу под названием «Электрический карандаш» (Electric Pencil).