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
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
Alte întrebări interesante
Matematică,
8 ani în urmă
Geografie,
8 ani în urmă
Fizică,
8 ani în urmă
Matematică,
8 ani în urmă
Istorie,
8 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă