А1:=1/х
а2:=а1/х=1/х/х=1
а3:=а2/х=1/х
а4:=а3/х=1/х/х=1
у:=а1 +а2=1/х+а1/х=1/х+(1/х)/х=1/х+1
у:=у+а3=1/х+1/х=2/х
у:=у +а4=2/х+1
Var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.
Ответ:
Смотри картинку
Объяснение:
n - количество элементов ряда, вводимое пользователем
a - число из ряда, вводимое пользователем
s - сумма чисел, которые являются одновременно четными и делятся на три
var a: array [1..10] of integer; c,sum: integer;beginsum:=0; writeln('введите элементы массива '); for c := 1 to 10 do read(a[c]); for c := 1 to 10 do if (a[c] mod 9) = 0 then sum:=sum+a[c];writeln('сумма равна =',sum);end.
1)
//PascalABC.NET v3.3 1633
begin
for var i:=3 to 10 do
writeln(i+'^3 = '+Power(i, 3));
end.
2)
//PascalABC.NET v3.3 1633
begin
for var i:=12 to 25 do
if (i mod 6 = 2) or (i mod 6 = 5) then
writeln(i);
end.