Исправить если есть текст(вставить пробели если нужно) Нынешняя экономическая модель Земли – патентование жизни, производство
огромных объемов человеческого труда, а затем продажа навыков, знаний,
выпотрошенных трудом - не является ой, которая может быть устойчивой.
Представляется маловероятным, что сегодня 35 миллионов человек будут
заменены ( это исключает работу быстро растущего ВВП. Если бы эта
экономическая модель была обращена вспять экономический рост
остановился на нынешних технологических тенденциях, то к 2050 году в
стране нашего размера насчитывалось бы около 150 миллионов человек.
Таким образом, это поддержало бы постоянно действующую экономику, но
не динамичную экономическую систему, необходимую для удовлетворения
наших будущих потребностей
И​

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }

1+2+3-4+5-6=1

1+2+3+4/5+6-7=1

1+2+3-4+5-6+7/8=1

подвести курсор справа от удаляемого символа

клацнуть бэкспейс

радоваться

var n,i: integer;

begin

  read(n);

  for i: = 2 to n-1 do

      if n mod i = 0 then writeln('no');

end.

var n,i: integer;

s: string;

begin

  read(s);

  for i: = 1 to length(s) do

      if s[i]="a" then n: =n+1;

  writeln(n);

end.