Question

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.

Answer 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.