Var A,k:integer;
Begin
k:=-1;
Repeat
Read(A);
if A mod 2 = 0 then k:=k+1;
Until A=0;
WriteLn('k = ',k)
End.
2000 кб= 2 048 000б
2 048 000б ÷ 1024000 б/с= 2 сек (сек сокращяются)
Например так
#include <iostream>
#include <math.h>
using namespace std;
int main(void)
{
int n,count=1,i=2;
cin>>n; int a[n+1]; a[0]=2;
while(count<n)
{
bool b=true;
for(int j=0;j<count;j++)
if(a[j]>sqrtl(i)+1) break;
else
{
if(i\%a[j]==0) b=false;
if(b) {a[count]=i; count++;}
i++;
}
}
for(int i=0;i<n;i++) cout<<a[i]<<" ";
return 0;
}
ускорил работу еще немного