👤
a fost răspuns

Sa se scrie 3 programe For , while , repeat care efectueaza suma numerelor naturale pare mai <= N ( numarul introdus .
Mersi
In pascal

Răspuns :

var

 i,N,S:integer;
 
begin
 
 read(N);
 
 for i:=1 to N do
  if i mod 2 = 0 then
   S+=i;
   
 writeln(S);

end.


var

 i,N,S:integer;
 
begin
 
 read(N);
 
 i:=1;
 
 while i<=N do
  begin
   if i mod 2 = 0 then S+=i;
   i+=1;
  end;
  
 writeln(S);

end.


var

 i,N,S:integer;
 
begin
 
 read(N);
 
 i:=1;
 
 repeat
  if i mod 2 = 0 then S+=i;
  i+=1;
 until i>N;
  
 writeln(S);

end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari