Informatică, întrebare adresată de GoOdGaMe, 8 ani în urmă

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ăspunsuri la întrebare

Răspuns de grigore2018
1

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.


grigore2018: Cam sunt la fel ele dar a doua metoda este mai corect scisa din punct de vedere informatic : )))
boiustef: nu e destul de corect nici prima nici a doua variantă din motiv că nu se ştie câte numere vor fi introduse, ci introducerea numerelor se termină cu introducerea lui zero ....
grigore2018: Aha,eu nu am citi atent intrebarea acusi am sa incerc sa schimb,mersi pentru observatie ! :)))
GoOdGaMe: Si eu am vazut ca e gresit :))
Răspuns de boiustef
0

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.


boiustef: Grigore, ai observat eu ti-am raspuns la intrebarea ta cu suma puterilor?
grigore2018: Da,mersi mult! :)
boiustef: cu plăcere...
grigore2018: Dumneavostra sunteti profesor,da?
boiustef: ex...
boiustef: de mate&info
Alte întrebări interesante