Написать программу, которая вычисляет сумму первых n членов ряда 1+1/3+1/5+1/7...1/n через опреатор for to do
10-11 класс
|
Var n,i:integer; s:real;
Begin
write('n='); readln(n);
s:=0;
for i:=1 to (n*2)-1 do
if (i mod 2)<>0 then s:=s+1/i;
writeln('s=',s:0:2);
End.
Другие вопросы из категории
Ответ:
4. Как называется программа, у которой есть версии для разных операционных систем? В ответе введите прилагательное.
Ответ:
5. Отметьте все прикладные программы.
операционная система
системы управления базами данных
электронные таблицы
графические редакторы
утилиты
6. Как называется программа, которая позволяет оформлять текст разными стилями и добавлять в документ рисунки и таблицы?
текстовый редактор
графический редактор
текстовый процессор
браузер
почтовый клиент
7. Отметьте все текстовые процессоры.
Блокнот
CorelDraw
OpenOffice Writer
Microsoft Word
Internet Explorer
привлечь покупателей, продавец указал скидку на весь товар 33%. Однако, сделал
(мелким шрифтом) примечание, что скидка указана в четверичной системе.
счисления.
Какую
реальную скидку получит покупатель с покупки, общей стоимостью 500 рублей?
Решить в Pascal. Перед тем как выкладывать ответ, проверьте решение.
Читайте также
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.