👤
GoOdGaMe
a fost răspuns

Sa se scrie un program care calculeaza suma numerelor impare, programul se sfarseste la introducerea cifrei 0. (PASCAL)
Ajutor! Imi trebuie repede. Dau coronita!

Răspuns :

Grigore2018

Am doua metode prima este aceasta:

var

  n,b,i:integer;

begin

  b:=0;

  read(n);

  for i:=1 to n do  

  if (i mod 2=1) then  

  b:=b+i;

  write(b);

end.

A doua metoda:

var n,i,s:integer;

begin

write('n = ');

read(n);

s:=0;

for i:=1 to n do

begin

if i mod 2<>0 then

s:=s+i;

end;

write('s = ',s);

end.

program sumaImpare;

var num, suma: integer;

begin

 suma:=0;

 write('introdu numere intregi. Stop este introducerea lui zero...');

 read(num);

 while (num>0) do

   begin

     if (num mod 2 =1) then suma:=suma+num;

     read (num);

   end;

 writeln('suma imparelor = ', suma);

end.

Alte intrebari