Помогите написать программу в Паскале пожалуйста))
5-9 класс
|
Для заданного числа N составьте программу, вычисляющую сумму чисел по формуле: S=1/2+1/4+...+1/2*n
var
n, i: integer;
s: double;
begin
Write('Введите значение N: ');
Readln(n);
s := 0;
for i := 1 to n do s := s + 1 / (2 * i);
Writeln('S=', s)
end.
Тестовое решение:
Введите значение N: 10
S=1.46448412698413
Другие вопросы из категории
Число n вводится на клавиатуре.Составьте на Паскале с циклом WHILE
Читайте также
1. Написать программу нахождения произведения n чисел.
Известно, что коды прописных (заглавных) букв латинского алфавита следуют в таблице непрерывно друг за другом. Коды строчных букв латиницы также следуют непрерывно друг за другом на расстоянии 32 символов от прописных (ниже по таблице) .
Если ord('A') = 65, то ord('A')+32 = 97, и это код строчной буквы «а» , то есть chr(ord('A')+32) = 'а'.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные целые значения.Напишите программу,которая находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов.