Напишите в Паскале программку на нахождение суммы чисел арифметической прогрессии с

Напишите в Паскале программку на нахождение суммы чисел арифметической прогрессии с 50 по 150 член, если a1=1, d=0,6. Формула арифметической прогрессии Sn=(a1+an)*n/2. Очень необходимо. Заблаговременно спасибо.

Задать свой вопрос
1 ответ
Var
a1,d:real;
Begin
Write('a1 = ');ReadLn(a1);
Write('d = ');ReadLn(d);
WriteLn('S(150) - S(50) = ',(2*a1+d*149)*75-(2*a1+d*49)*25);
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт