tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль.для заданного натурального
Паскаль.для заданного натурального числа n рассчитать сумму: а)cosx+cos x2 +cos x2++cosxn б)sin1+sin1,1+sin1,2++sin2 в)1! ++3! ++n!
doreaan
3 15.06.2019 16:00
3
Ответы
AnyRam
12.07.2020 18:51
1)
var
n,i:Integer;
sum:Real;
Begin
Read(n);
for i:=1 to n do
sum:=sum+cos(i);
Writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Anna7225
17.04.2019 21:06
Нужно сделать разветвляющуюся блок схему используя данные блокиданы два целых числа: (день) и m (месяц), определяющие правильную дату не високосного года. вывести значения...
petrovskayaanna
17.04.2019 21:04
Как создать массив из 28 элементов который надо сгенерировать в диапазоне от 20 до 40 разделив исходный массив на 2 с условием: четное или нечётное по индексам. отсортировать...
MINIONCHIK17
17.04.2019 20:57
Как реализуются функции копирования и перемещения в excel? как можно вставить или удалить строку, столбец в excel? для чего используются абсолютные и относительные адреса...
alidagalamova2003
11.04.2019 07:00
Вводит фамилию имя отчество в одну строку а программа должна сохранить их в отдельные перимерные и вывести на экран \.с++...
kistoria
19.05.2019 11:50
Для целого числа к от 1 до 99 напечатать фразу мне к лет а завтра нужно (мне 15 лет) програмка на паскале...
nselt
19.05.2019 11:50
Из десяти одноклассников четверо умеют играть в шашки, шестеро-в шахматы.двое умеют играть и в шашки,и в шахматы. впиши ответы на вопросы: сколько будут только болельщиками?...
zagudaevaa
15.12.2020 08:21
Написана следующая программа вычислить конечный результат.а) А=6A+6*2б) 7/7514/1425/848/7116//1В) 77% 524%45% 513% 556%30...
lizka119
15.12.2020 08:22
) Выберите преимущество векторной графики * Теряется качество при масштабировании Не теряется качество при масштабировании Фотографическая точность изображения Отсутствие...
Пиоооьлл
15.12.2020 08:22
Выбери содержимое ячейки электронной таблицы А текст В изображение C формула D звук...
Taekimyeon
15.12.2020 08:23
Что означает Имя например Rul() ? (Python)...
Популярные вопросы
Отом что требовал горький от жизни за что в ней боролся что любить...
2
Написать сочинение объёмом 100 слов ев тему какой из изученных авторов...
1
95 , .1. какие стадии развития феодальное государство? 2.какие этапы...
3
Всемирная 7 класс составить диаграмму венна политика китай и япония...
3
1. первый элемент списка s равен 1: s[0]=1 . составьте список из...
2
This person usually dances to classical music: b_ _ _ _ _ d_ _ _...
3
Зробіть висновок як впливають чинники розміщення електростанцій різного...
2
Индуктивное (xl=15 ом) и емкостное (xc=10 ом) сопротивления включены...
2
Найти пятый член (2+ корень из х) в 9 степени...
2
Просклонять по падежам по укр-яз слово семнадцать,восемнадцать...
3
var
n,i:Integer;
sum:Real;
Begin
Read(n);
for i:=1 to n do
sum:=sum+cos(i);
Writeln(sum);
end.