oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 14:34 Titlul subiectului: Problema 30 |
|
|
| Cod: |
{30. fisierul numere.in contine pe întâia linie un numar normal n (0<=n<=1000000)
iar pe a doua linie n numere reale separate prin cate un spatiu. fiecare numar real
este format din cel mult 10 cifre inclusiv fracțiune zecimala. scrieti programul care
determina si afiseaza cifrele care nu apar in scrierea nici unui numar real din
fisier. aceste cifre se vor afisa pe ecran in ordine crescatoare, separate prin
cate un spatiu. in cazul in care toate cifrele sunt utilizate in scrierea numerelor
din fisier, se va afisa mesajul NICI UNA.}
program new;
var a,b:set of char;
f:text;
n,i,p:integer;
c:char;
x:real;
s:string;
ok:boolean;
begin
a:=['0'..'9'];
b:=[];
assign(f,'numerein.txt'); reset(f);
readln(f,n);
for i:=1 to n do begin
read(f,x);
str(x,s);
for p:=1 to length(s) do if s[p] in a then b:=b+[s[p]];
end;
ok:=true;
for c:='0' to '9' do if not(c in b) then begin
ok:=false;
write(c,' ');
end;
if ok then write('NICI UNA');
end.
|
|
|
