Var
i, n: integer;
a, s: real;
begin
readln(n);
a := 1;
s := a;
for i := 2 to n do
begin
a := a * -(i - 1) / i;
s := s + a;
end;
writeln(s:10:6);
end.
В цикле прибавит 7 к самой себе 9 раз, т.е 7*9=63
Ответ: 63
1)
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
Writeln(n div 10 - n mod 10)
end.
2)
var
a:real;
begin
writeln('Площадь в ар.: ');
Read(a);
Writeln('Кв,км: ',Trunc(a/10000))
end.
Перо опустить , после этого он начнёт перемещатся выдовая чёткие контуры.
Визуализация информации или доступность(в чём я сомневаюсь)