var
i, c, s, n:integer;
Begin
write('Введите n: ');
readln(n);
s:= 0;
c:= 0;
write('Последовательность: ');
while i < n do begin
s:= s + i;
c:= c + 1;
i:= i + 2;
write(i, ' ');
end;
writeln;
writeln('Сумма последовательности: ', s);
writeln('Количество слагаемых: ', c);
END.
там не понятно фоткать научись
1)program wk;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(x*x*x)/3+(x*x*x*x*x)/5;
Writeln('y =',y)
end.
2)program wk2;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x/2- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program wk3;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program wk4;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+Abs(x*x*x*x-x*x*x*x*x);
Writeln('y =',y)
end.
var
m:array [1..10000] of integer;
a,n,i,j:integer;
begin
writeln('Введите n:');
readln(n);
j:=0;
writeln('Введите последовательность чисел:');
for i:=1 to n do
begin
readln(a);
if (a mod 2)<>0 then begin j:=j+1; m[j]:=a; end;
end;
if j=0 then writeln ('Нечетных чисел нет в данной последовательности.')
else
begin
writeln ('Нечетные числа в данной последовательности:');
for i:=1 to j do
write(m[i],' ');
writeln;
end;
end