Salve ragazzi oggi sono qui per porvi un quesito riguardo la risoluzione di una consegna in pascal:
Date 10 equazioni di primo grado, si sviluppi il programma che conti le equazioni indeterminate.
Per cont si intende il barattolo in cui contengo le equazioni indeterminate, per g il numero di giri da far fare all'iterazione e per a/b si intendono i due membri dell'equazione.
program equazione;
var g,a,b,cont : integer;
begin
cont:=0;
for g:=1 to 10 do begin
readln(a,b);
if a:=0 and b:=0 then cont:=cont+1;
end;
writeln(cont);
readln();
end.
Date 10 equazioni di primo grado, si sviluppi il programma che conti le equazioni indeterminate.
Per cont si intende il barattolo in cui contengo le equazioni indeterminate, per g il numero di giri da far fare all'iterazione e per a/b si intendono i due membri dell'equazione.
program equazione;
var g,a,b,cont : integer;
begin
cont:=0;
for g:=1 to 10 do begin
readln(a,b);
if a:=0 and b:=0 then cont:=cont+1;
end;
writeln(cont);
readln();
end.