Помогите написать программу на паскаль и блок схему
10-11 класс
|
Найти сумму
1,1-1,2+1,3.......1.n
n- целое, вводится с клавиатуры
var
i,j,s,n:integer;
begin
write('Задайте значение n: ');
readln(n);
s:=1;
j:=-1;
for i:=1 to n do
begin
s:=s+i+j;
j:=-j
end;
writeln('s=',s);
end.
Тестовое решение:
Задайте значение n: 5
s=15
Комментарий удален
члены до н-ого числа
1.1-1.2+1.3-1.4 и т.д
Другие вопросы из категории
Читайте также
В отчете предоставить блок-схемы всех
функций, текст программы.
Задача : В целочисленном массиве Х(N) удалить все элементы, расположенные
между максимальным и минимальным элементами. Найти среднее
арифметическое элементов массива до и после удаления. В программе
написать функции: удаления элемента, поиска номеров минимального и
максимального элементов, определения среднего арифметического
элементов массива.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
2.написать программу в паскале
f(x)=2(sin*sin)x+1