👤
DANIILTCACIWIX
a fost răspuns

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ăspuns :

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.

   

Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.


Wix Learning: Alte intrebari