Оптимизируйте программы ниже, так что бы они выполнялись за меньшее количество операций. 1)var n , m :integer;
k : real;
begin
readln(n);
m:=1;
while n>0 do begin
m:=m+n*n*n;
n:=n-1;
end;
k:=trunc(sqrt(m));

writeln(k);
end.

2) var n , m, i :integer;
begin
readln(n);
m:=2;
i:=0;
while m
if n mod m <> 0 then i:=i+1;
m:=m+1;
end;
if (i=n-2) or (n=1) then writeln(n);
end.

10000x4000x500x30x4

Цифры числа расположены в определенных позициях, которые соответствуют (справа налево) единицам, десяткам, сотням, тысячам и так далее. Определите название позиции и ее значение для каждой цифры (справа налево).

Пример: так как в данном числе четыре цифры, то вам нужно определить названия четырех позиций (справа налево).

7 соответствует единицам (значение = 1).

2 соответствует десяткам (значение = 10).

8 соответствует сотням (значение = 100).

5 соответствует тысячам (значение = 1000).

Как-то так
#include <iostream>
using namespace std;
int main(){    cout << "Vvedute kol-vo ocenok" << endl;
    int n,i,a,Four,Five;    n = i = a = Four = Five = 0;
    cin >> n;
    for (i = 1; i <= n; i++)    {        cin >> a;        if (a == 4){         Four++;}  else if (a == 5)      {         Five++;      }    }    if (Four > Five){   cout << "Four" << endl;} else if (Five > Four)      {   cout << "Five" << endl;      }      else      {         cout << "Equal"<< endl;      }      cout << "Kol-vo 4: " << Four << " Kol-vo 5: " << Five << endl;    return 0;}