oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 14:01 Titlul subiectului: Problema 12 |
|
|
| Cod: |
{12.scrieti un program care citeste de la tastatura doua siruri de caractere,
fiecare sir fiind compus din cel mult 100 de litere din alfabetul englez, si
care afiseaza mesajul "da" daca toate literele din întâiul sir se gasesc in cel
de-al doilea, nu neaparat in aceeasi ordine si de acelasi numar de ori, sau
mesajul "nu" in caz contrar}
program ex12;
var s1,s2:string[100];
a:set of char;
i:integer;
ok:boolean;
begin
write('s1: '); readln(s1);
write('s2: '); readln(s2);
a:=[];
for i:=1 to length(s2) do a:=a+[s2[i]];
ok:=true;
for i:=1 to length(s1) do if not (s1[i] in a) then ok:=false;
if ok then write('da')
else write('nu');
end.
|
|
|
