var
s: real;
i, n: integer;
begin
i := 3;
readln(n);
while (i <= n) do
begin
s := s + (i - 1) / i;
inc(i);
end;
writeln(s);
end.
Ответ:
n = int(input())
newlist = []
for i in range(n):
newlist.append(int(input()))
print(
newlist[0],
newlist[len(newlist)-1]
)
Объяснение:
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := Frac(Abs(ReadReal('Введите исходное число:'))).ToString;
var k := ReadInteger('Введите значение k:');
var (s1, s2) := (x[3:3 + k], x[3 + k:3 + 2 * k]);
if s1.Select(t -> t.ToDigit).Sum = s2.Select(t -> t.ToDigit).Sum then
Println('Суммы равны')
else
Println('Суммы не равны')
end.
<h3>Введите исходное число: -542.6327288323</h3><h3>Введите значение k: 3</h3><h3>Суммы не равны </h3>
Устройства ввода:
(◘ сканер в принтере)
◘ сканер
◘ клавиатура
◘ микрофон
◘ компьютерная мышь
◘ джойстик
4561,81,53,1,731,91это то что надо