решить задачу на любом языке. Мне очень надо. Решения из инета не проходят, я хз почему.
Вот один из моих кодов: (не проходит по времени на 6 тесте)

#include
#include
#include
using namespace std;
bool prime(const int& n)
{
bool res = (n > 1) ? true : false;
for (int i = 2; i <= sqrt(n*1.); ++i)
if (n % i == 0)
{
res = false;
break;
}
return res;
}

int main(void)
{

int a, b,k=0,n;
scanf("%d",&n);
for (int i = 0; i {
scanf("%d",&a);
if (prime(a))
{
printf("YES");
printf("\n");
}
else
{
printf("NO");
printf("\n");
}

}
}

прости меня мне нужны балы я готовлюсь эгзамену

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end. 

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.