👤
Mcnugetsally
a fost răspuns

Hi! Am nevoie de cineva care ar putea sa traducă programul dat din C++ in Pascal
Urgent!!! Dau si coroana!

#include
using namespace std;
/*
Se considera numarul natural N. Sa se scrie un program care calculeaza suma numerelor prime pina la N
*/
int n,i,nrdiv,nr;
int main() {
cout<<"Dati n= ";cin>>n; for(i=1;i<=n;i++)
{
nrdiv=0;
for(int j=1;j<=i;j++)
if(i%j==0)nrdiv++;
if(nrdiv==2)cout<<"Numarul "< }
return 0; }

Răspuns :

var i,k,n,x,sum:integer;
begin
readln(n);
for k := 1 to n do begin
x := 0;
for i := 1 to k do begin
if k mod i = 0 then inc(x)
end;
if x = 2 then sum+=k
end;
writeln('Suma: ',sum);
end.

Alte intrebari