задача номер 1 напечатать сумму элементов кратных одновременно двум или трем числового ряда 3, 6, 9, 2, 12, 2, 24 и задача 2 составить программу
10-11 класс
|
вычисления числового ряда для известного числа ряда N. Y=(1-2/5)+(2+4/10)+(3-8/15)+(4+16/20)+...
program zadacha2;
uses crt;
var i,n,a:integer;
b,y,c,l:real;
begin
clrscr;
readln(n);
a:=1;
b:=2;
c:=5;
for i:=1 to n do
begin
if a mod 2 = 0 then
l:=a+b/c
else
l:=a-b/c;
a:=a+1;
b:=b+2;
c:=c+5;
y:=y+l;
end;
writeln(y:2:2);
readkey;
end.
Первую по подробней расспишите
Другие вопросы из категории
арифметическое.
2) Дан массив из 10 элементов. Определить 2х значные числа и которые заканчиваются на цифре 5.
• var a: array [1..20] of integer;
• type myarray=array [1..20];
var b: myarray;
• var sd: array [1..n] of integer;
• var dd: array[1] of integer;
1714,28→?10;
е) DD,316→?10
Читайте также
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
массив.Найти сумму определённого элемента;количество элементов,стоящих на нечетных местах;произведение элементов,кратных 5.
элементов; 3) сумму элементов которые делятся на 3; 4) минимальный и максимальный элемент. (используя procedure или function, но чтоб была рекурсия)ПОЖАЛУЙСТА ПОМОГИТЕ ВОПРОС ЖИЗНИ И СМЕРТИ!!