Var
i: integer;
s: real;
begin
i := 2;
while(i <= 100) do
begin
//writeln(i, '/', i + 1);
s := s + (i / (i + 1));
i := i + 2;
end;
write(s);
end.
vvvvvvvvvvvvvvvvvvvvvvv
number = input('Введите число: ')
c = len(number) // 2
d = len(number)
o = 0
x = True
for i in number:
if (o <= c) and (i != number[d-1]) and (x == True):
x = False
o += 1
d -= 1
if x:
print('Число является перевёртышем')
else:
print('Число не является перевёртышем')
1.
var
a, b, c, s, p: integer;
begin
readln(a, b, c);
s:=a+b+c;
p:=a*b*c;
writeln(a, '+', b, '+', c, '=', s);
writeln(a, '*', b, '*', c, '=', p);
<span>end.
2.
</span>var
a, b, c, s, p: integer;
sr: real;
begin
readln(a, b, c);
s:=a+b+c;
p:=a*b*c;
sr := s/3;
writeln(a, '+', b, '+', c, '=', s);
writeln(a, '*', b, '*', c, '=', p);
writeln('(', a, '+', b, '+', c, ')/3=', sr);
<span>end.</span>
Program 1;
Var s,i,n,a:integer;
begin
writeln('Введите число n');
readln(n);
S:=0;
for i:=2 to 2*n do
begin
a:=i*(i-1);
S:=S+a;
end;
writeln('S=',S:3);
readln;
<span>end.
Дайте лучший ответ)</span>