Составить программу вычисления суммы n первых членов арифметической прогрессии по первому ее члену и разности
10-11 класс
|
var n:integer;
s,a1,d:real;
begin
readln(a1,d,n);
s:=(2*a1*n+d*n*(n-1))/2;
writeln(s);
end.
Другие вопросы из категории
строке, C и D на другой. Результат вывести на отдельную строку и курсор оставить на этой же строк
От чего зависит реальная скорость подключения к интернету с помощью ADSL-cоединения? С помощью GPRS-соединения? Соединения с помощью локальной сети?
Читайте также
прогрессии и сумму первых n членов Sn. Если Sn≤25, то вычислить процентное отношение первого и последнего членов арифметической прогрессии . Написать программу на языке Паскаль
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
результата введите ограничение на количество знаков после запятой. Примечание. В Паскале используются стандартные функции: SIN(X) - синус Х (аргумент задается в радианах); COS(X) - косинус Х (аргумент задается в радианах); Для подсчета угла в радианах используйте формулу: угол в радианах = (угол в градусах)*/180. Результат представьте в виде: Программа вычисления значений тригонометрических функций x° Sin(x) Cos(x) Tg(x) 1 2 3 .. 45
2.Составить алгоритм вычисления разности кубов цифр, заданного восьмизначного числа.
3. Для заданного действительного числа К вычислить значение произведения
(99/k^3-98)*(97/k^3+96)*(95/k^3-94)*...*(3/k^3+2)