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

Este foarte urgen va rog !!!
Pascal: Un elev a hotarat sa realizeze o cercetare statistica. El a inscris intr-un registru toate numerele caselor, pe langa care trece in drumul sau de la casa spre scoala .Acum el vrea sa determine cate din numerele inscrise au suma cifrelor egala cu varsta lui.
Sarcina :elaborati un program care calculeaza cate din numerele caselor au suma cifrelor egala cu varsta elevului dat. Programul trebuie sa contina un subprogram cu numele suma,care primeste de la programul apelant in calitate de parametru un numar intreg si returneaza suma cifrelor acestuia.
Intrare: Fisierul text numere.in contine in prima linie doua numere intregi,separate prin spatiu:varsta elevului v si cantitatea numerelor inscrise -n .urmatoarele n linii contin cate un mumar intregi-numerele caselor de pe traseu.
Dau multe puncte.

Răspunsuri la întrebare

Răspuns de boiustef
1

program traseu;

var f:text;

   n, nrcasa, i, v, contor:integer;

function suma(m:integer):integer;

var s:integer;

begin

  s:=0;

  while (m<>0) do

    begin

      s:=s+m mod 10;

      m:=m div 10;

    end;

  suma:=s;

end;

BEGIN

 assign(f,'numere.in'); reset(f);

 readln(f,v, n);

 for i:=1 to n do

    begin

      readln(f, nrcasa);

      if suma(nrcasa)=v then contor:=contor+1;

    end;

 writeln(contor);

 close(f);

end.

   


daniiltcaci: pur si simplu nu am luat .txt
daniiltcaci: va multumesc tare
boiustef: molodet
daniiltcaci: sarbatori in continuare fericite
boiustef: spasibo
boiustef: din chisinau ?
daniiltcaci: nu causeni
daniiltcaci: inainte asa programe faceam usor dar o luna nu am fost la calculator si gata
daniiltcaci: inca odata va multumesc
boiustef: ok
Alte întrebări interesante