Практическое задание. Указать, по какому запросу будут выведены Планеты, чья масса не превосходит 100´1024кг и не меньше 2´1024кг и имеющие спутники.
a. Масса=>100´1024 OR Масса<=2´1024 AND Спутник>0.
b. Масса=>100´1024 AND Масса<=2´1024 AND Спутник>1.
c. Масса<=100´1024 AND Масса>=2´1024 AND Спутник>=1.
d. - Масса=>100´1024 OR Масса<=2´1024 OR Спутник>1.
var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.